











CAD für Architekten, aber 
nicht die Katze im Sack 



Wir lüften für Sie das Geheimnis. 
Bevor Sie den Geldbeutel zücken, 
informieren wir Sie gründlich über 
das komplette System. Schritt für 
Schritt erhalten Sie Einblicke in 
Aufbau, Struktur und Arbeits¬ 
weise von GFA-CASTELL, so daß 
Sie konkret entscheiden können, 
ob und wie Sie dieses CAD- 
System für Architekten sinnvoll 
einsetzen können: 

• Fordern Sie unsere Leistungs¬ 
beschreibung an. 

• Vereinbaren Sie einen Demo- 
Termin mit uns oder einem 


• In einer zweitägigen Einfüh¬ 
rungsschulung vermitteln wir 
Ihnen die ersten Fähigkeiten 
im Umgang mit GFA-CASTELL 
für DM 800,- (DM 400,- werden 
bei Bestellung auf den Kauf¬ 
preis angerechnet). 

• Für fortgeschrittene Anwender 
bieten wir ebenfalls eine 2- 
Tages-Schulung für DM 800,- 
an. Hier lernen Sie die Fein¬ 
heiten im Umgang mit dem 
Programm kennen. GFA-Profis 
vermitteln Tips & Tricks aus 
der Praxis. 


• Bei dringenden Problemen 
stehen wir Ihnen telefonisch 
mit Rat und Tat zur Seite. 



unserer Vertragshändler. 

• Für 150,-(Verrechnungs¬ 
scheck) senden wir Ihnen das 
komplette Handbuch (wird bei 
Bestellung auf den Kaufpreis 
angerechnet). 


iFA Ci 



GFA-CLUB-Nachrichten Nr. 5 - 89 


3 


Impressum 

Die GFA-CLUB-Nachrichten 
erscheinen zweimonatlich. 
Einzelverkaufspreis: 1.50 DM. 
Der Bezug für GFA-CLUB-Mit¬ 
glieder ist kostenfrei. 

Herausgeber 

GFA Systemtechnik GmbH 
Heerdter Sandberg 30-32 
4000 Düsseldorf 11 

Verantwortlich im Sinne 
des Presserechts 
Manfred Klingelhoeffer 

Redaktion 

Jutta Wenger 

Autoren 

Berthold Cogel, Rolf 
Gademann, Thomas Göring, 
Waller Hermann, Andreas 
Pimer, Daniel Rednaz, Günther 
Schmitz, Thomas Ströter, Lars 
van Straelen, Jutta Wenger 

Titelfoto 

Andreas Lambert 

Formatierung 

Carola Richardt 

Druck 

Graf & Pflügge 


Namentlich gekennzeichnete 
B eiträge geben nicht in jedem 
; i Fall die Meinung des Herausge¬ 
bers oder der Redaktion wieder. 
Der Herausgeber übernimmt 
hierfür lediglich die presserecht¬ 
liche Verantwortung. 

Die in dieser Zeitung veröffent¬ 
lichten Beiträge sind urheber¬ 
rechtlich geschützt. 

Für Fehler im Text, in Schaltbil¬ 
dern, Aufbauskizzen, Stück¬ 
listen, Programmlistings usw. 
können wir keine Haftung ilber- 
l! nehmen. 

CIFA-CLUB-Redaktion 
II Telefon: 0211/55 04-22 


Inhaltsverzeichnis 



Vorwort 

4-5 

"Die Informatik" 

Schülerduden 

5 

Flohmarkt 

Suche, Biete, Kontakte 

6 

"Jugend forscht" 

7 

Neuerscheinungen bei der GFA 

GFA-Anwender-Buch, GFA-FAKT-plus, 
GFA-STATISTIK, GFA-DRAFT-plus erw. Version 

8-9 

Updates/Upgrades 

10-11 

Messetermine 

11 

GFA-BASIC Tips & Tricks 
#8: Doppelt ist größer 

12 

Japan BASIC 

13 

HELPLINE 

Adressen/Infos 

14-15 

Amiga 

Tips & Tricks 

16 

Programmtest 

TEACHER’s HiWi 

17 

GFA-BASIC Tips & Tricks 

Patch-Bereiche, Anpassung, Gesamtkapazität, 

18-21 

Versionsnummer, Diskspeeder, Blitterschalt-Prozedur, 

SCHÜTZEST 


GFA-BASIC Professional 

Folge 8: Umriß - Kontur - Outline - Inline 

22-23 

Funktionen in GFA-BASIC 3.0 

24-25 

GFA-CLUB-Händler 

26 

Der Support für alle 
GFA-DRAFT-plus-Produkte 
erfolgt ab sofort über die 
Niederlassung Düsseldorf. 






4 


GFA-CLUB-Nachrichten Nr. 5 - 89 


Liebe GFA-CLUB-Mitglieder, 


ich möchte mich bei Ihnen bedanken. 
Sie haben sehr zahlreich den Frage¬ 
bogen zur GFA-CLUB-Umfrage ein- 
gesandt. Wir hoffen, vielleicht in der 
nächsten Ausgabe schon Ergebnisse 
bekannt geben zu können. Falls Ihr 
Fragebogen noch zu Hause in der 
Schublade ruht, schicken Sie ihn uns 
noch! Sie haben bis zum 15.10.89 die 
Chance, daß Ihr Bogen in der Aaswer¬ 
tung berücksichtigt wird. Und viel¬ 
leicht ist gerade Ihr Vorschlag oder Ihre 
Kritik ausschlaggebend. 


Lediglich dem Punkt "regionale Grup¬ 
pen" sind wir etwas näher gekommen. 
Es haben sich Mitglieder gemeldet, die 
entweder selbst eine regionale GFA- 
CLUB-Gruppc gründen wollen oder 
sehr interessiert sind, daß in ihrer Nähe 
eine solche Gruppe entsteht. Eine Liste 
soll in den nächsten CLUB-Nachrich- 
ten folgen. Die anderen Themen würde 
ich nur ungern unter den Tisch fallen 
lassen. Wer also Fragen dazu hat oder 
gerne mitarbeiten möchte, ist herzlich 
willkommen. 


zessor mit 40% Farbmöglichkeiten, 
davon 16 Farben gleichzeitig, sowie 
Stereo-Soundchip mit entsprechenden 
Ausgängen (8-bil-PCM-Slcreo- 
Sound). Genlock-Interface soll direkt 
angeschlossen werden. Er ist voll kom¬ 
patibel zum "alten" ST. 

Der TT hat einen 68030-Prozessor (16 
MHz), dazu gehörend Cache (256 
Byte). Der Speicherplatz beträgt 2 
MB. Die 4 MB des TT/X sind erwei- 
terbar auf 26 MB. 


Unser Titelfoto zeigt die CLUB-Mit- 
glieder und einige Mitarbeiter unseres 
Hauses bei dem CLUB-Trcffen zur 
ATARI-Messe. Es sind ca. 170 Mit¬ 
glieder erschienen, die leider nicht alle 
auf das Bild paßten. Wenn die Organi¬ 
sation etwas brüchig war, und die 
Würstchen nicht bis zum Ende reich¬ 
ten, denke ich doch, daß es ein ge¬ 
lungenes Treffen war. Kontakte wur¬ 
den geknüpft, und die Stimmung war 
aufgeschlossen und lebhaft. Die Ge¬ 
spräche fanden in einzelnen Gruppen 
statt, leider hat die Menge der Teil¬ 
nehmer eine Diskussionsrunde verhin¬ 
dert. (Wie auf dem unteren Bild zu 
sehen ist, waren die Mitglieder im Ge¬ 
spräch.) Themen des Treffens sollten 
sein: 

• Arbeitsgemeinschaft Zeitung 

• Gründung regionaler Gruppen 

• Themenorientierte CLUB-Treffen 

• Aufgabenorientierte Arbeitskreise. 


Zurück zum GFA-CLUB-Trcffen. Ich 
möchte mich bei den CLUB-Mitglic- 
dem entschuldigen, die vielleicht 
(durch meinen Fehler) vor den Türen 
dcrGFA vergeblich auf den Beginn des 
CLUB-Treffens gewartet haben. Ich 
hatte übersehen, daß die Zeitangabe im 
letzten Vorwort fehlte. 

Resonanz der ATARI-Messe: Die Be¬ 
sucher waren allgemein gespannt auf 
die angekündigten Neuerungen. Ne¬ 
ben neuen Programmen bestand si¬ 
cherlich das größte Interesse an den 
ATARI-Rechnem - TT und STE. Der 
STE zeichnet sich durch folgende Ei¬ 
genschaften aus: Er ist angelehnt an 
das Outfil des 1040er, er hat alle ge¬ 
wohnten Anschlüsse (von DMA bis 
MIDI), zwei neue Controllerports, an 
denen "neue" Gamecontrollers (Laser- 
gun-Paddles) angeschlosscn werden 
können. Der Speicherplatz beträgt 1 
MByte. Der STE ist ausgestattet mit 
ROM-TOS 1.4 und neuem Grafikpro¬ 


Betricbssysteme: TOS,optional UNIX 
V mit X Windows-Oberfläche. (Beim 
TT/X serienmäßig). Der TT ist nach¬ 
rüstbar zum TT/X. Die interne Toner¬ 
zeugung arbeitet mit PCM-Sampling, 
besitzt verschiedene Filter und Stereo¬ 
ausgänge. 

Außer den ST-Grafik-Modi hat der TT 
noch drei neue: 640 x 480 mit 16 Far¬ 
ben, 320 x 480 mit 256 Farben, 1280 x 
960 monochrom. Die Farbpalettc des 
TTs umfaßt 40% Farben, die auch im 
ST-Modus (ja, der TT kann natürlich 
auch den ST emulieren) verwendbar 
sind. Selbst der Monochrom-Modus 
nennt sich ’Duochrome’, da man nicht 
mehr auf die Kombination Schwarz/ 
Weiß angewiesen ist. Neben den ST- 
Schnittstellen besitzt der Tr folgende 
serienmäßig: SCSI Harddisk-Port, 
Netzwerk, VME-Bus, komparübel 
zum ST. 

Ihre Jutta Wenger 
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Schülerduden 
”Die Informatik” 


"Die Informatik ist aus der Schule nicht 
mehr wegzudenken. Sie durchdringt 
den Unterricht immer mehr. Dieser 
Entwicklung trägt der neue SCHÜ¬ 
LERDUDEN 'Die Informatik’ Rech¬ 
nung." 

Mit diesen Sätzen auf dem Buchrücken 
des o.g. Buches wird ein neues Werk 
aus der DUDEN-Bilbiothek für den 
Schüler angekündigt, das "zu vielen 
konkreten und im Informatikunterricht 
oft wiederkehrenden Aufgabenstellun¬ 
gen entsprechende Algorithmen und 
Programmbeispiele" (Zitat aus dem 
Vorwort) enthält. Diese Beispiele sind 
meist in der Sprache PASCAL gesch¬ 
rieben. 

Die Begriffe werden ausführlich und 
auch für einen Laien leicht verständlich 
erklärt. So findet man z.B. unter dem 
Hauptstichwort 'Mikroprozessor’ zu¬ 
erst eine allgemeine Erklärung, an¬ 
schließend eine genaue Beschreibung 
und den internen Aufbau von vier 
Mikroprozessoren. Von dem Prozessor 
8080 wird zusätzlich noch der Be¬ 
fehlsvorrat aufgeführt. Zu jedem Be¬ 


fehl gehört dazu - zur Verdeutlichung 
seiner Funktionsweise - auch eine Be¬ 
schreibung in Form einer kleinen PAS- 
CAL-Routine. 

Auch Programmiersprachen sind aus¬ 
führlich erklärt Sogar konkrete Ausse- 
hensformen der Programme in der 
jeweiligen Sprache werden oft aufge¬ 
führt. Zu jeder Sprache sind kleine Pro¬ 
grammbeispiele (oft ein Primzahlen¬ 
programm) abgedruckt. Es werden 
aber nicht nur gebräuchliche Begriffe 
aus dem Gebiet der Informatik erklärt, 
sondern auch nicht so oft benutzte, wie 
z.B. der mir bislang unbekannte "Lam¬ 
bda-Kalkül" (mathematischer For¬ 
malismus zur Beschreibung von Funk¬ 
tionen durch Rechenvorschriften). 
Außerdem sind viele Beschreibungen 
mit meist zweifarbigen Abbildungen 
zusätzlich veranschaulicht. 

Im Register am Ende des Buches kann 
man Begriffe, die im Schülerduden 
zwar erklärt werden, aber nicht als 
Hauptstichwörter aufgeführt sind, mit 
der entsprechenden Seitenangabe fin¬ 
den. 


Dieses sehr ausführliche Nachschlage¬ 
werk für Themen und Begriffe aus dem 
Informatik-Bereich ist leicht verständ¬ 
lich geschrieben und somit gut für 
Schüler geeignet, die sich mit der 
Computerei beschäftigen wollen. Aber 
nicht nur für Anfänger, sondern auch 
für fortgeschrittene Computer-User 
wird dieses Buch von Nutzen sein. 

Als ich dieses "Sachlexikon für die 
Schule" neu auf meinem Schreibtisch 
liegen hatte, war ich so fasziniert da¬ 
von, daß ich es fast wie einen Roman 
durchgelesen habe. Aber auch heute 
leistet es mir immer noch einen guten 
Dienst und hat seinen festen Platz in 
meinem Bücherregal. Die 24.- DM ha¬ 
ben sich gelohnt. 


Schülerduden "Die Informatik" 

Dudenverlag 

540 Seiten 

24.- DM 

ISBN 3-411-02213-2 


Thomas G dring 



Wir geben der Plotter-Zukunft einen 
Namen... 

Plotter-Serie GP1000 

• 16-BitCPU • 2 Schnittstellen 
• Plottgeschwindigkeit 800 mm/s • Beschleunigung 5,6 G 

• Auflösung programmierbar bis 0,025 mm; mech. 0,005 mm 

• DIN A0 oder AI • Max. Plottfläche 2000 x 870 mm 
• 8 Stifte-Karussell • Stift- u. Wegeoptimierung 

• Datenspeicher bis 1 MB • GP-GL™-HP-GL™umschaltbar 

• Auch als Rollen- oder Bleistiftplotter lieferbar 


GRAPHTEC GmbH • Postfach 11 32 • D-8031 Seefeld (Obb.) 1 
Tel. 081 52 - 7912(0) - 50 ■ Tx. 527719 • Fax 081 52 - 791299 


Wir stellen aus: 

INTERKAMA, Düsseldorf • SYSTEMS, München 
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Flohmarkt- 

Anzeigen 



Tintenstrahldrucker Epson SQ 2000, 
24 Düsen, Druckbreite bis DIN A3, 
automatischer Einzelblatteinzug, 
Traktorführung, erstklassige Schrift¬ 
qualität, VB 1350.-, Tel.: 02408-5164 
ab 18:00 


Brandheiße ATARI News 8/89 
MS-DOS Emulator 
PC-Specd 589,- DM 

Megafile 30 MB 999,- DM 

Drucker Star LC 10 555,- DM 

Farbmonitor Philips 529,- DM 

Megafile 60 MB 1849,-DM 

Weitere Artikel auf Anfrage! 

Bezug und Info bei: 

Jörg Schröder Soft & Hardware 
Karl Seitz Str. 33,8759 Hösbach 
Tel.: 089-8507791 


Biete: Shareware-Programm zur Er¬ 
stellung von Struktogrammen auf Disk 
gegen 5,- DM (Schein, V-Scheck), 
Peter Ubachs, Schlenkcstr. 54 , 4620 
Castrop-Rauxel. Wer Gefallen an dem 
Programm findet, läßt sich dann für zu¬ 
sätzlich 20 Märker registrieren. 

Calamus Schriften (nur Originaldis¬ 
ketten): Francis Med., Mars, Script It2, 
Pinsel, Pinsellt, Cassy Bold, zusam¬ 
men 128,- DM, Bebensee 04521- 
71195 ab 18:00 


Suche Hilfe bei Umsetzung von Loco- 
motive-Basic (CPC v. Schneider) in 
GFA-BASIC V.2, Tel.: 06105-76755 

Suche Fließkomma-Routinen in As¬ 
sembler. Wenn möglich, mit SIN, 
COS, TAN. Es braucht keine hohe Ge¬ 
nauigkeit zu sein. Angebote an: Martin 
Seidel, St. Moritz Str. 8,2800 Bremen 
44 

Wer hat eine Maschinenroutine, um 
STAD-Bilder zu packen und/oder zu 
entpacken? Als LST-File zum Einbin¬ 
den in GFA-BASIC V2.0. Wer kann 
mir diese zur Verfügung stellen? D. 
Hendricks, Buchenstr. 3, 4150 Kre¬ 
feld, 02151/390247, nach 17 Uhr 


Amstrad PC1640DD mit CGA-Moni- 
tor, incl. GFA-DESK und anderer ori¬ 
ginal Software (ca. 400,- DM) zu ver¬ 
kaufen. Der Preis für das ca. 4 Monate 
junge Gerät liegt bei 2400,- DM incl. 
Software. Teletool BTX-Decoder für 
250,- DM. Kontakt: Martin Bormann, 
Wohldenbergstr. 19, 3201 Holle 7, 
Tel.: 05062-8334, BTX: 050628334 
D001 

Biete/tausche super Qualitäts PD-Soft- 
ware, Signumfonts und Grafikbilder 
für Atari ST, Programme können ein¬ 
zeln ausgesucht werden. Nur 0,9 - 1,4 
Pfennig pro KB, Gratiskatalog: Jürgen 
Wingen, Hohenzollem Str. 99, 5200 
Siegburg 

Verkaufe Uhr-Modul für den Atari ST 
zum Einstecken in den ROM-Port 
(DM 60,-) Dietmar Hammerl, Böh¬ 
mischbruck, Tel.: 09656-617 ab 18:00 

GFA-DRAFT-plus PC, ungebraucht 
für DM 200,-, SHARP Taschencomp. 
PC-1600 mit 48 KB RAM, m. Drucker 
CE1600P, mit SHARP-Datenrec., m. 
Netzteil u. 12 Volt Autoadapter für DM 
1.050,- zu verk. HJ. Splinter, 5106 
Roetgen, Neustr. 26, Tel.: 02471-2986 


Verkaufe Floppy SF 354 DM 50,- 
Drucker Seikosha SP 800 DM 70,- (zu¬ 
sammen DM 100,-), Tel.: 040- 
7644209 

Verkaufe PC 5000 SHARP-LAP-TOP 
256 K-RAM, eingebauter Drucker 
(Thermo), eingebaute Programme 
Text-Planner-DFÜ & Basic A RS 232 
& Kassettenrecorderanschluß & Dis¬ 
klaufwerkanschluß, Festpreis 700,-, 
Rene Golby, Im Dau 11,5000 Köln 1, 
FAX: 0221-314855 



Suche alle Ausgaben der Zeitschrift 
"Computer Generation", zahle je Aus¬ 
gabe 5,- DM! Verkaufe orig. James II 
Inc. Anleitung für 200,- DM, Marcus 
Klocke-Sewing, Gronauer Str. 10, 
4800 Bielefeld 1, PS.: Suche auch TOS 
1.0 C erste TOS Version für den ST auf 
Diskette (zahle 10,- DM) 



ATARI ST - Raum Freiburg: Suchen 
Sie Hilfe, Tips? Möchten Sie Erfah¬ 
rungen austauschen? Null Problemo! 
Rufen Sie mich an: 0761-580146 

Suche Kontakt zu GFA-BASIC-Besit- 
zem mit guten Progammierkenntnis- 
sen (muß nicht sein) im Raum Marburg 
oder Giessen. Biete außerdem Floppy 
SF 354 für 90,- DM an. Andreas Gör¬ 
lach, Wacholderweg 8, 3556 Nieder¬ 
walgern /Tel.: 06426/833 nach 19:00 

Wer kann mir weiterhelfcn? Ich suche 
Routinen in GFA-BASIC 2, mit denen 
ich den Bildschirm ausdrucken kann. 
Besonderen Wert lege ich darauf, daß 
die Größe des Ausdrucks wählbar ist. 
Interessant ist es auch, den Bildschirm 
gedreht zu drucken, um auf A4-Format 
zu kommen. Der Ausdruck sollte nach 
Möglichkeit nicht verzerrt sein. Auch 
kleine Routinen, die Grundsätzliches 
verraten, können mir helfen. Joachim 
Lübbers, Emmericher Str. 24, 4240 
Emmerich 3 
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Die Arbeitsgemeinschaft "Jugend 
forscht" des Vincent-Lübeck-Gymna- 
sium, setzt sich aus einer Gruppe enga¬ 
gierter Jugendlicher zusammen, die 
sich mit den Themen Biologie, Bio¬ 
chemie, Lasertechnik, Solartechnik, 
Informatik und dem Gebiet der Supra¬ 
leitung befassen. 

Die Arbeiten wurden schon auf den un¬ 
terschiedlichsten Veranstaltungen mit 
großem Erfolg vorgestcllt (Deutscher 
Zcitschriftentag, INSEA Weltkunst¬ 
kongreß u.a.) sowie mehrmals auf Lan¬ 
des- und Bundesebene ausgezeichnet. 

Auf der Berliner Funkausstellung 
zeigte die Arbeitsgemeinschaft "Ju¬ 
gend forscht" im Rahmen ihrer tech¬ 
nisch-wissenschaftlichen Programme 
die u.a. mit dem Bundessonderpreis 
der Elektrotechnischen Industrie aus¬ 
gezeichnete Arbeit, die sich mit einem 


neuartigen Verfahren zur Projektion 
dreidimensionaler Bilder beschäftigt 

Mitglieder der Arbeitsgruppe wurden 
vom Bundespräsidenten und Bundes- 

" Jugend 
forscht" 

kanzler besucht und auch zur Tagung 
der Nobelpreisträger eingeladen. 

Seit einiger Zeit steht der Gruppe in 
Stade ein professionelles Video-Studio 
zur Verfügung. Dadurch eröffnen sich 
viele Möglichkeiten, die Projekte vor¬ 


zuführen oder dokumentarisch festzu¬ 
halten. 

Nun will die Arbeitsgemeinschaft 
einen Film erstellen, in dem die gesam¬ 
ten bisher gemachten Projektarbeiten 
dokumentiert sind. 

Für die Dokumentation und die 
Präsentation werden sie das Pro¬ 
gramm ZOETROPE für den AMIGA 
verwenden, das ihnen von der GFA 
Systemtechnik GmbH gestiftet wurde. 

Die Stadt Stade stellt der AG in Aner¬ 
kennung ihrer Leistungen eine kom¬ 
plett restaurierte Mühle als Gebäude 
für ihre Forschungstätigkeiten zur Ver¬ 
fügung. 

Sie sind somit die erste Gruppe 
Jugendlicher in der BRD, die über ein 
eigenes Forschungszentrum verfügt 


Für GFA-Club-Mitglieder kostenlos: Ihre persönliche Kleinanzeige für den Flohmarkt 

Bitte veröffentlichen Sie in der nächstmöglichen Ausgabe der GFA-CLUB-Nachrichten unten folgenden Text (auch als 
ASCII-File auf Diskette möglich)! Für jegliche Anzeigen übernehmen wir keine speziellen Formatierungsarbeiten. 


Biete an 


□ 


Name 

Strasse 

PLZ/Ort 

Datum/Untersc hri ft 


Suche: Kontakte: Verschiedenes: [j 


Maximal 15 Zeilen, je Zeile 30 Zeichen (inkl. Zwischenraum) bei normaler Schriftgröße. 
Bei Fettdruck und grafischen Zeichen sind Abweichungen möglich. 



Nicht-Club-Mitglieder: L-DM/Zeile 5.-DM/Zeile/gewerbliche Anzeigen Club-Mitglied: 

Club-Mitglieder: 3.- DM / Zeile / gewerbliche Anzeigen Nicht-Club-Mitglied: 

gewerbliche Anzeige: 

Der Anzeigenpreis in Höhe von DM liegt bei als V-Scheck: Q bar: 
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Neuerscheinungen bei der GFA 


Das GFA- 
Anvvender-Buch 

Das GFA-Anwender-Buch richtet sich 
an Anwender von GFA-B ASIC Version 
2.0 und 3.0 und GFA-ASSEMBLER. 

Der erste Teil dieses Buches ist eine 
Einführung in die Assemblersprache. 
Er wendet sich an alle Leser, die bereits 
erste Erfahrungen in GFA-BASIC ge¬ 
sammelt haben. Anhand von prakti¬ 
schen Beispielen werden dem Leser die 
Grundbegriffe der Programmierung in 
ASSEMBLER und fortgeschrittene 
Programmiertechniken aufgezeigt. Be¬ 
sondere Aufmerksamkeit wurde der 
Verbindung von GFA-BASIC zu GFA- 
ASSEMBLER gewidmet Ein vollstän¬ 
dig ausformuliertes Computerspiel 
zeigt, wie diese Verbindung durchge¬ 
führt wird. 

Der zweite Teil des Buches wendet sich 
an GFA-BASIC-Programmierer. Es 
werden dabei so wichtige Themen wie 
Programmierung mit Festplatte, Druk- 
keranpassungen, auflösungsunabhän¬ 
giges Programmieren (Großbild¬ 
schirm), Betriebssystemroutinen, Ac- 
cessoryprogrammierung und Erstellen 
einer beim Betriebssystem angemel¬ 
deten Anwendung besprochen. Ebenso 
wird auf den neuen GFA-BASIC Com¬ 
piler 3.0 eingegangen. 

Im letzten Teil werden schwierigere Al¬ 
gorithmen wie Grafik drehen, Grafik 
vergrößern, Konvertierungen zwischen 
verschiedenen Auflösungen und das 
GEM-Image-Format vorgestellt, deren 
Umsetzung in GFA-BASIC- und GFA- 
ASSEMBLER-Programme und die 
Einbindung der fertigen GFA-ASSEM- 
BLER-Programme in GFA-BASIC- 
Hauptprogramme. 

Die Autoren 

Uli Weidlc (23) studiert an der Univer¬ 
sität Tübingen Physik, Mathematik und 
Informatik. Erarbeitetals selbständiger 
Programmierer. Seinen ersten Kontakt 
zu Personal Computern hatte er 1978. 
Seitdem hat er mit den verschiedensten 
Computern gearbeitet. Er program¬ 
miert in 6502-, Z80-, 6809-, 8086-, 


32032- und 68000-Assembler, sowie in 
diversen Hochsprachen. 

Dietmar Schell (32) programmiert seit 
1986 auf dem ATARI ST in GFA- 
BASIC. Im Computerbereich liegt sein 
Schwerpunkt in der Grafik-Program¬ 
mierung. Sein Können als Program¬ 
mierer stellte er bereits mit seinen Gra- 
fikprogrammen DiSc-Grafik ST und 
DiSc-Scan ST, die in GFA-BASIC 
geschrieben sind, unter Beweis. Auch 
als Buchautor ist er bereits durch zwei 
Lehrbücher für Programmieranfänger, 
"GFA-BASIC 3.0 Training” (ATARI 
ST) und "Der Einstieg in GFA-BASIC 
3.0" (AMIGA), hervorgetreten. 

Preis: 59.- DM 


GFA-FAKT-plus 

Das Fakturierungsprogramm GFA- 
FAKT-plus bietet eine ausgereifte Kom¬ 
plettlösung, die sich allein durch die 
Zeitersparnis beim Erstellen von Rech¬ 
nungen innerhalb kürzester Zeit bezahlt 
macht. Umfangreiche Sonderfunk¬ 
tionen werden bereits mitgeliefert und 
müssen nicht in Form von Zusatzpro¬ 
grammen extra erworben werden. 
Einige Beispiele: 

• GFA-FAKT-plus übernimmt nicht 
nur die Fakturierung, es verwaltet 
auch Ihre Kunden- und Lagerdateien 
auf komfortable Weise. 

• GFA-FAKT-plus übernimmt die 
komplette Zahlungsüberwachung 
und schreibt auf Wunsch sogar auto¬ 
matisch Mahnungen, sobald die von 
Ihnen vorgegebene Zahlungsfrist ab- 
gelaufcn ist. 

• GFA-FAKT-plus ermöglicht Ihnen 
eine vollkommen freie Gestaltung 
des Rechnungsformulars: Das be¬ 
trifft nicht nur die verwendeten 
Schriftarten oder die Plazierung des 
Anschriftenfeldes, Sie können bei¬ 
spielsweise auch bestimmen, ob 
Brutto- oder Nettopreise ausge¬ 
druckt werden sollen. 


• GFA-FAKT-plus enthält das Zu¬ 
satzprogramm GFA-ADRESS, 
welches Ihnen bei der Erstellung 
von Etiketten sowie Serienbriefen 
hilft und Ihnen eine umfassende 
Adressenselcktion ermöglicht. 

• GFA-FAKT-plus beinhaltet statisti¬ 
sche Funktionen: So können Sie 
sich jederzeit auf dem Bildschirm 
zeigen lassen, welcher Artikel am 
Umsatz des vorigen Monats den 
größten Anteil hatte - oder für wie¬ 
viel Mark der Kunde X im letzten 
Jahr geordert hat. 

• GFA-FAKT-plus hilft Ihnen mit ei¬ 
nem speziellen Dateimanager beim 
Löschen oder Umbenennen von Da¬ 
teien und beim Formatieren von 
Disketten, außerdem können Sie aus 
dem Dateimanager heraus andere 
Anwendungsprogramme aufrufen. 

Das Handbuch 

Das dazugehörige Handbuch führt Sie 
in einem Ubungsteil schrittweise in die 
Arbeit mit GFA-FAKT-plus ein - in 
einer Sprache, die auch für PC-Ein- 
steiger verständlich ist. Zum Nach¬ 
schlagen einzelner Funktionen dient 
der Referenzteil: Hier erfahren Sie 
auch, wie Sie GFA-FAKT-plus nach 
Ihren Wünschen und Bedürfnissen in¬ 
dividuell anpassen können. 

Das Zusatzprogramm 

Das im Lieferumfang ebenfalls enthal¬ 
tene Zusatzprogramm GFA-ADRESS 
wird in einem Sonderteil behandelt. Sie 
können nämlich GFA-FAKT-plus auch 
unabhängig von diesem Zusatzpro¬ 
gramm einsetzen. GFA-ADRESS soll¬ 
ten Sie erst installieren, wenn Sie sich 
in die Fakturierung eingearbeitet haben 
und zusätzliche Möglichkeiten wie die 
Erstellung von Serienbriefen oder die 
Selektion einzelner Adressen nach di¬ 
versen Kriterien nutzen möchten. 

Umsteiger von der älteren Version 
GFA-FAKT 2.0 finden im Anhang be¬ 
schrieben, wie sie ihre bereits erfaßten 
Kundendaten auch in GFA-FAKT-plus 
weiterverwenden können. 


Preis: 898.- DM 
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Neuerscheinungen be 


GFA-I)RAFT-plus PC 
erweiterte Version 

Für alle GFA-DRAFT-plus-Besitzer 

gibt es eine erweiterte Version, die sich 

durch folgende Neuerungen auszeich- 

net: 

• Spline Funktion: Durch Setzen von 
Punkten auf der Zeichenfläche wer¬ 
den glatte Kurven durch diese 
Punkte gezogen. Bis zu 180 Punkte 
können gesetzt werden. Die Kur¬ 
venverläufe können wahlweise 
offen oder geschlossen sein. 

• Treiber für Metafile-Format. Meta¬ 
file (*.GEM) ist ein hochauflö¬ 
sendes Grafikformat, das von an¬ 
deren GEM-Programmen (GEM- 
DRAW, Ist Word Plus, Ventura 
Publisher usw.) eingelesen werden 
kann. 

• Konverter für DXF. Zeichnungen 
anderer CAD-Systeme (z.B. Auto 
CAD) können von GFA-DRAFT- 
plus eingelesen und ausgegeben 
werden. 

• Linienbreiten können geändert wer¬ 
den; somit sind Linienbreiten-Rei¬ 
hen nach DIN möglich. 

• Die Druckgeschwindigkeit wurde 
wesentlich erhöht, speziel bei La- 
serdruckem. 

• Handbuch für die PC-Version. Zur 
Version 3.1 wurde ein komplettes 
neues Handbuch erstellt. Umfang¬ 
reiches Stichwortverzeichnis und 
reichhaltige Illustrationen. 

Preis; 398.- DM 


Treiber-Paket 
CNC/DNC-Steuerung 
zu GFA-DRAFT-plus PC 

Für die gewerbliche Anwendung steht 
ab sofort ein Treiber-Paket zur 
CNC/DNC-Steuerung inkl. deutschem 
Handbuch zur Verfügung. Anwendung 
für X-Y-Z-Maschinen. Fräsen, Gra¬ 
vieren, Bohren, Entgraten in 3 Achsen: 
z.B. für Leiterplatten, Gehäuseplatten, 
Schilder, Mechanik. 

• Programmieren von CNC-Maschi- 
nen durch Zeichnen 


• Direktes Steuern von CNC-Ma- 
schinen durch den Computer "on¬ 
line" 

• Z-Achse in maximal 17 Stufen mit¬ 
tels Layers und Linienstatus 

• Werkzeugmaße werden berück¬ 
sichtigt (Einstichtiefe, Breite) 

• Werkzeugwechsel wird unterstützt 
(15 Werkzeuge) 

• Der Nullpunkt kann per Tasten¬ 
druck "online" angefahren werden 

• Getrennte Geschwindigkeiten für 
X-, Y- und Z-Achsen 

• Serienfertigung im DNC- und 
CNC-Modus möglich 

• CNC-Modus: die Maschine arbeitet 
ohne Computer 

• Verschiedene Maschinen durch Pa- 
rametertabcllen (ASCII-Format) 
ansteuerbar 

• DicHPGL-und DFX-Schnittstellen 
von GFA-DRAFT-plus lassen das 
Einlesen von Zeichnungen oder 
Zeichnungsdaten aus anderen 
Programmen zu 

Dieses Programm gibt es ebenfalls für 

den ST (gleicher Preis). 

Preis: 349.- DM 


GFA-STATISTIK ST 

GFA-STATISTIK stellt ein Programm¬ 
paket dar, in dem ein ausgewähltes 
Angebot von statistischen Verfahren 
implementiert ist. Die Intention zur 
Entwicklung von GFA-STATISTIK 
bestand darin, dieses Angebot von sta¬ 
tistischen Verfahren für einen großen 
Anwenderkreis verfügbar zu machen. 
Zu diesem Anwenderkreis zählen ver¬ 
schiedene Bereiche der Sozial- (Sozio¬ 
logie, Pädagogik...) und der Naturwis¬ 
senschaften (Physik, Chemie, Biolo¬ 
gie, Psychologie...). Darüberhinaus 
sind fast alle empirischen Bereiche der 
Medizin, insbesondere die pharmako¬ 
logische bzw. pharmazeutische For¬ 
schung und diverse Sparten der Wirt¬ 
schaft, wie z.B. die Markt- und Werbe¬ 
forschung zu den potentiellen Anwen¬ 
dungsbereichen zu zählen. Diese Spe¬ 
zifikation des Anwenderkreises macht 
deutlich, daß unter den beteiligten Per¬ 
sonen häufig kein ausgebildeter Stati¬ 
stiker zu finden ist 


i der GFA 


GFA-STATISTIK verfügt daher über 
eine sehr einfache Benutzerführung, 
ohne eigene Kommandosprache, die 
eine minimale Einarbeitungszeit ga¬ 
rantiert. Alle in GFA-STATISTIK im¬ 
plementierten Verfahren sind sowohl 
von der theoretischen (Voraussetzun¬ 
gen, Teststatistiken...) als auch von der 
praktischen Seite (zu jedem Verfahren 
ein Beispiel) in einem 600seitigen 
Handbuch dokumentiert. 

GFA-STATISTIK bietet umfangreiche 
deskriptive Maße, Graphiken und eine 
Fülle von inferenzstatistischen Verfah¬ 
ren an. Bei den parametrischen Ein- 
Zwci- und Mehrstichprobentests sind 
17, bei den entsprechenden nicht-para¬ 
metrischen Tests 18, verschiedene Ver¬ 
fahren implementiert. 

Darüberhinaus können mit GFA- 
STATISTIK verschiedene Regres- 
sions- (einfache lineare, multiple line¬ 
are, polynomiale), Varianz- (ein-, zwei- 
und dreifache Klassifikationen mit und 
ohne Meßwiederholung) und Zeitrei¬ 
henanalysen (Autokorrelationsfunk¬ 
tion, partielle Autokorrelationsfunk- 
tion, Fourierreihenentwicklung, An¬ 
passung durch orthogonale Polynome) 
sowie eine einfaktorielle Kovarianz¬ 
analyse mit beliebig vielen Kovari- 
ablen durchgeführt werden. 

GFA-STATISTIK kann außerdem für 
beliebige Binomial-, Poisson-, Hyper- 
geometrische-, Normal-, t-, C Qua¬ 
drat-, F- und Exponentialvertt gen 
die exakten p-Werte berechnen und für 
beliebige Normal-, t-, Chi-Quadrat-, F- 
und Exponentialverteilungen beliebige 
Quantile angeben. 

GFA-STATISTIK kostet in der Voll- 
version 998.- DM 

Nebenbei existiert eine Studentenver¬ 
sion, die mit der Voll version bis auf die 
Berechnungen der p-Werte, der Quan- 
tile, der Kreuztabellen, der Kovarianz¬ 
analyse und der Zeitreihenanalyse 
identisch ist. 

Der Preis für die Studentenversion be¬ 
trägt 398.- DM. 

Ein späteres Upgrade auf die Vollver¬ 
sion ist für 649.- DM möglich. 
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Updates/Upgrades 


Name 

Version/Datum 


ST-Produkte 

GFA-BASIC 

Entwicklungssystem 2.0 (Interpreter und Compiler) 

2.02 

27.12.87 


Entwicklungssystem 3.0 (Interpreter und Compiler) 

3.07 

15.06.89 


Compiler 3.0 

3.02 

14.08.89 


68881 

1.4 

12.11.87 


GFA-DRAFT (an Mega ST angepaßt) 

2.1 

30.09.87 


GFA-DRAFT-plus ST 

3.01 

31.03.89 


GFA-ASSEMBLER 

1.3 

10.05.89 


GFA-RAYTRACE 

1.5 

02.09.88 


ChemGraf 

1.0 



GFA-ARTIST 

1.0 

19.11.87 


STARTER 

2.0 

01.07.88 


Floppyspeeder 

1.0 

01.06.88 


Farbkonverter 

1.2 

25.07.88 


Monochromkonverter 

1.2 

25.07.88 


Multi-Accessory 

1.0 

01.06.88 


PC-Produkte 

GFA-DRAFT-plus 

3.02 

17.07.89 


GFA-FAKT 2.0 

2.0 

15.11.88 


GFA-DESK 

1.6 

05.11.88 


GFA-DESK-plus 

1.2 

01.11.88 


AMIGA 

GFA-BASIC Amiga 3.0 

3.04 

24.07.89 



Service 


Sie müssen registrierter Kunde für 
das "upzudatcnde" Produkt sein. Das 
Update erfolgt nach: 

• Zusendung eines frankierten, 
an Sie selbst adressierten, wat¬ 
tierten DIN C5 Rückumschla¬ 
ges 

• Zusendung von DM 10.- (nur 
Geldschein) 

Um sicher zu gehen, daß wir das rich¬ 
tige Produkt auf dem entsprechenden 
Diskettenformat updaten, nennen 
Sie uns bitte: 

• den Produktnamen 

• die Seriennummer 

• das verwendete System 

• das gewünschte Diskettenfor¬ 
mat (5 1/4" oder 3 1/2") 

Nur wenn die oben genannten Bedin¬ 
gungen erfüllt sind, erhalten Sie von 
uns eine Update-Diskette mit der ge¬ 
wünschten Programmversion. Das 
Nutzungsrecht für diese Programm¬ 
version gilt nur in Verbindung mit 
der Originaldiskette. 

Achten Sie bitte darauf, daß Sie nicht 
Ihre Originaldiskette einsenden! 

Bei Rückfragen wenden Sie sich bit¬ 
te an den Update-Service: 

0211/55 04-27 oder 0211/ 55 04-28 


SCHUBERT+ MUNZERT 

Farbbänder - Toner - Kopierer 


Hastener Str. 136-138 
5630 Remscheid 1 
Telefon: 02191/87 60 
Fax:02191/84469 


Wir liefern: 


Farbbänder und Farbbandkassetten 
Toner und Laser-Toner namhafter in- und 
ausländischer Hersteller 
Tischkopierer und EDV-Zubehör 
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UPGRADES 

Ursprünglicher Kaufpreis 

Upgradepreis 

Bemerkung 

GFA-DRAFT ST 

298,- DM 

GFA-DRAFT plus V3.0 
(Modula-2-Version) 

120,- DM 

3 

GFA-DRAFT ST 

198,- DM 

GFA-DRAFT-plus ST V2.0 

220,- DM 

3 

GFA-DRAFT-plus ST VI.5 


GFA-DRAFT-plus ST V3.0 

50,- DM 

3 

GFA-DR AFT-plus ST V2.0 


GFA-DRAFT plus ST V3.0 

10,- DM 


GFA-BASIC Interpreter ST V2.0 

169,- DM 

Entwicklungssystem 3.0 

70,- DM 

1+6 

GFA-BASIC Interpreter ST V2.0 

99,- DM 

Entwicklungssystem 3.0 

140,- DM 

1 + 6 

GFA-BASIC Interpreter V1.0 


Entwicklungssystem 3.0 

90,- DM 

1 

GFA-Einsteigcr-Set 


Entwicklungssystem 3.0 

140,- DM 

4 

Entwicklungssystem 2.0 


Entwicklungssystem 3.0 

160,- DM 

1 

GFA-DRAFT-plus PC 3.01 

279,- DM 

GFA-DRAFT-plus PC 
erweiterte Version 

149,- DM 

3 

GFA-Fakt l.X 


GFA-FAKT 2.0 

25,- DM 

3 

GFA-Desk 1.5 


GFA-DESK plus V1.2 

70,- DM 

2 

GEM (GFA-DRAFT-plus PC) 2.2 


GEM 3.0 

149,- DM 

5 


Bemerkung: (Folgendes bitte einschicken) 

7: komplettes Paket (Handbuch, Ringordner u. Orig.-Diskette) 
2: Originaldiskette 

3: Handbuchseiten + Originaldiskette . 


4: nichts 

5: nur Masterdiskette 
6: Kopie des Kaufbelegs 


Messetermine bis Dezember ’89 


5.- 7.10.8989 

Stuttgart 

ELTEFA 

Fachmesse für Elektrotechnik und Elektronik 

11.-14.10.1989 

Berlin 

büro-data 

Ausstellung der Bürowirtschaft 

16.-20.10.1989 

München 

SYSTEMS 

Internationale Fachmesse und Kongreß 
Computer und Kommunikation 

25.-28.10.1989 

Dortmund 

Elektrotechnik 

Fachschau für elektrotechnische Ausrüstung 

8.-11-11.1989 

Friedrichshafen 

Fachmesse für Büro und Organisation 

Informations- und Kommunikationstechnik 

10.-12.11.1989 

Köln 

AMIGA ’89 

Europäische AMIGA-Fachmesse 

16.-18.11.1989 

Wiesbaden 

ACS 

Architekten Computer-Systeme 


Kj W Uj *■-* + + tjj ^ Uj 
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GFA-BASIC 
Tips & Tricks #8 


XBIOS 5 anmelden. Beim Weiterschal¬ 
ten wird immer um das KgV (kleinste 
gemeinsame Vielfache) von 256 Bytes 
für XBIOS 5 und 80 Bytes für eine 
Zeilenlänge geändert - so paßt es bei¬ 
den, und die sich ergebenden 16 Zeilen 
sind für diese schlichte Vorgehens¬ 
weise genügend und vor allem schnell 
(Wer es nicht glaubt, nimmt die PAUSE 
1 aus dem Listing ...). 

Zum Bewegen des Bildes muß inner¬ 
halb eines (willkürlich festgelegten) 
40-Pixel-breiten Streifen am oberen 
oder unteren Rand mit der Maus ge¬ 
klickt werden. In die Richtung des Ran¬ 
des scrollt (bewegt sich) die Grafik. 
Durch Druck einer beliebigen Tastatur¬ 
taste wird das Gescrolle beendet. 

Auf Wunsch kann der gerade sichtbare 
Ausschnitt als Teilbild im normalen 
PIC oder im Degas-PI3 gespeichert 
werden. Dieser Programmteil ist nicht 
weiter ausgearbeitet und speichert stur 
nur als TEILBILD.PIC oder -.PI3. 



Ttiis Office 
is not PC-DQS 
Compalible 





Doppelt ist 
größer 

Zunehmend sind Zeichenprogramme 
im Einsatz, die Bildformate verar¬ 
beiten, die größer als ein Bildschirm 
sind. Eine Variante dieses Themas sind 
Grafiken, die aus zwei untereinander¬ 
liegenden bildschirmgroßen Teilen be¬ 
stehen. 

Unser Tip zeigt diesmal, wie eine sol¬ 
che Grafik angezeigt werden kann. Der 
Trick dabei ist die "raffinierte" Art, das 
Teilbild für den Bildschirm zu erlan¬ 
gen: 

Erst wird der Beginn der Grafik mit 
Blockverschieben (BMOVE) auf die 
richtige Adresse gebracht und dann 
wahlweise auf die nächste richtige 
Adresse weitergeschaltet. "Richtige 
Adresse" heißt hier, daß der Bildschirm 
mit seiner physikalischen Adresse (wo 
geht’s nun konkret im Rechner mit der 
Bildschirmdarstellung los!?) nur an 
glatt durch 256 teilbaren Adresswerten 
beginnen kann. 

Wir ermöglichen das, indem wir die 
Grafik nach dem Laden auf die nächste 
glatte 256er Adresse schieben und diese 
als Bildschirmspeicheranfang über 


GEfflUD (DK1 


This Office 
is not PC-DDS 
Compatible 
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Handbuch, 

japanisch 

zubereitet 

Seit Ende 1988 existiert in Japan ein 
Distributor für das GFA-BASIC. 

Mr. Rioji Oba führt seine Firma "OR 
LIMITED" in Tokio. Und so wie die 
Abbildung zeigt, sieht eine Seite aus 
dem Handbuch für den GFA-BASIC 
3.0 Interpreter in japanischer Schrift 
aus. 

Der ATARI Computer wird in Japan 
hauptsächlich als Musikcomputer ge¬ 
nutzt. Mr. Oba möchte dies mit dem 
Vertrieb des GFA-BASIC gerne ändern. 
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Vorfrceeen darf Ihr Computer sein 



- aber dann sollten 
2io billiger einkaufon. 

Senken Sie die 
Lobenemiftolkostcn 
Ihres Computers 

und füttern Si« ihn zukünftig 
einfach mit unseren preis¬ 
werten Spielen und Zubehor- 
artikeln. Wir liefern für: 

Commodore C16/64/128 
Commodore Amiga 
Atari XL/XE und ST 
PC und Amstrad CPC 

Fordern Sie einfach unsere 

- kostenlose Liste - 

an (Computertyp angeben !) 
Computer-Oiscount-Versand 

R GARTIG 

7450 HECHINGEN-BEUREN 
Rmgstr. 4 Tel: 07477/8158 



PD-SERVICE REHRL 

ST COMPUTER, ATARtmagazin. GFA-CLUB 
PD-POOL (2000er), PD-JOURNAL, u.v.m 


- Schneller und zuverlässiger Versand 

- Faire Preise (ab 4.- incl. Diskette) 

- auf Viren getestet und immunisiert 

- Disktest und Inhaltstest vor Versand 

- alle Disketten mit Label 

Versand Vorkasse : DM 3.- 

Nachnahme: DM 7.- 

Fordern Sie meinen umfangreichen und 
kostenlosen Katalog an!! 

PD-SERVICE REHRL 
Stettener Weg 8 
8221 Teisendorf 
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Projekt ” HELPLINE” 


Martin Seidel 
St Moritz Sir. 8 
2800 Bremen 
Alter 23 
Tel.: 401580 

Willi Stern 
Kennedystr. 38 
8039 Puchheim 
Tel.: 089/8002545 

Engelbert Hofeck 
Hebbelstr. 8 
8070 Ingolstadt 
Alter 31 

Tel.: 0841/56757 


1. Rechner 

1. Drucker 

2. Rechner 
Plotter 

Programm 

Anwendung Praxis 

1 

ATARI 1040 STFM 


GFA-BASIC 2.0 

allgemein 

2 

Nec P6 


GFA-ASSEMBLER 

Grafik/Animation 

3 



Signum 

Hardwarebasteleien 

2 

Amstrad PC 1640DD 

C64 

GFA-FAKT 

Faktuicrung 

1-2 

Präsident 6320 


GFA-DESK plus 

Textverarbeitung 

1-2 



KleindruckTeufel 

Kundenbetreuung 

1-2 

260 ST 1MB 


GFA-BASIC EWS ST 

Börse und Versch. 

2-3 

Nec 2200P 



Programmierung 

2-3 


Friedrich Rode 
Unterreithen 16 
8959 Halblech 
Alter 43 
Tel.: 08368/861 


AMIGA 500 
NG 10 


GFA-BASIC 


Programmierung 


Hans Meier 
Am Bremsberg 9d 
4630 Bochum 
Alter 40 

TeL: 0234/850267 


A 2000 B 
Nec P6 


XT-Karte 


GFA-BASIC 
Devpac 2.0 


Grafik/Tools 

allgemein 


Jürgen Kreileder 
Thanham 11 
8399 Kößlam 
Alter 15 1/2 
Tel.: 08536/241 

Christoph Haas 
Billerbeckstr. 126 
5810 Witten 
Alter 16 

Tel.: 02302/55196 


AMIGA 500 
Star LC 24-10 


AMIGA 2000 
SiarND-10 


GFA-BASIC 3.03 AMIGA 

A68K 2.02 PD-ASSEM- 
BLER für den Amiga 

GFA-BASIC AMIGA 


Spieleprogrammierung 
Utilities, Shells 
Hardwareprogrammierung, 
Unterprogramme für 
GFA-BASIC 3.03 

Programmierung von 
Anwendersoftware 


Thorsten Richter 
Zur Siedewurth 1 
2854 Losestedt 
Alter 19 

Tel.: 0471/734 6 


ATARI St 1040 
Oki 192 


GFA-BASIC 3.0 


Grafik, Spiele, Programmicrurjg 2-3 


Alexander Lorenz 
Hasenberg 10 
8851 Diemantstein 
Alter 17 

Tel.: 09008/1223 


ATARI 520 ST+ 
SlarNL 10 


GFA-BASIC 3.0 EWS 


Grafik, Programmierung 


Kurt-U. Börder 
Alleckstr. 45a 
5450 Neuwied 22 
Alter 29 

TeL: 02631/48211 

Stephan Künzel 
Eppinger Str. 2 
7100 HN-Böchingen 
Alter 25 

TeL: 07131/32169 


MEGA 2 Sharp 
Nec P6 plus 


STR 520 


PC 1600 
CE1600P 


GFA-BASIC 2.02/3.0 

CAMPUS 

Ist Word plus 


GFA-BASIC V2.0 
Superbasc deutsch 


Programmierung 

CAD (Elektrotechnische 

Dokumentation) 


Programmierungsvers. 

Dateiverwaltung 
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Name/Anschrift 

1. Rechner 

1. Drucker 

2. Rechner 
Plotter 

Programm 

Anwendung Pra 

xis 

Michael Kubasch 

ATARI Mega ST 2 


GFA-BASIC 3.0 

Hilfsprogramme z.B. für 


Ihringshäuscr Str. 53a 

" Laser SLM 804 



Signum Syslemutilities 

3 

500 Kassel 



GFA-ASSEMBLER 


1-2 

Aller 27 



Signum! 2 

Textverarbeitung 

3 

Tel.: 0561/877402 






Hcllmut Voelcker 

AMIGA 500 1MB 


ABasic, AC-Basic, 

76 Patiencen, Skeleton- 


Alt Moabit 109 

Epson I -X 800 


GFA-BASIC 

Rätsel-Generator, 


1000 Berlin 21 




Schweitzer-Rätsel, 


Alter 47 




Zahlen rät sei 

3 

Tel.: 3917421 



C, Assembler 


2 

Rene Golly 

STEM 1040 

PC-5000 Sharp 

Ist Word plus, Ist Mail 

geschäftlich 

3 

Im Dau 11 

Toshiba P221 


GFA-BASIC 2.0 

Programmierung 

1-2 

5000 Köln 1 



STAD 1.3 

geschäftlich 

3 

Alter 36 






Tel.: 0221/314855 






Detmar Wenzel 

ATARI ST 520 


GFA-BASIC 

Programmierung 

2-3 

Graefestr. 55 

Nec 1*2200 


Devpac-Asscmbler 1.25D 

Programmierung 

1 

1000 Berlin 61 






Aller 21 






Tel.: 030/6939258 






Peter Ullmann 

1040 STF 

260 ST 1MB 

Word Plus 

Textverarbeitung 

1 

Hohe Warte 26 

Nec P2200 

Oki NL 182 

GFA-BASIC 2.0/3.0 

Programmierung 

2 

4300 Essen 1 



GFA-ASSEMBLER 

Programmierung 

1 

Alter 26 



BS-Handcl 

Lagerwaltung 

3 

Tel.: 0201/737460 






Karl-Heinz Schneider 

ATARI 1040 STF 

Sharp PC 1475 

GFA-BASIC 3.0 

Mathematik, 


Königsberger Str. 4 

Star NL-10 



Datenbanken, Grafik 

2-3 

6790 Landstuhl 6 



Transfile ST 

Sharp <--> Atari 

3 

Alter 24 






Tel.: 12973 






Thomas Herrmann 

ST 520 

STF 1040 

GFA-DRAFT plus 

Schaltlpäne, Teilepläne 

2 

Bcethovenstr. 20 

Epson LX 800 


Ist Word plus 

Textverarbeitung 

2 

7180 Crailsheim 



GFA-BASIC V3.03 

alles mögliche 

2 

Alter 31 






Tel.: 07951/22206 






Cornelius Stumpf 

ATARI Mega ST2 


Adimens St 

Datenbank 

2 

ücherstr. 85 

Star NL-10 


Ist Word plus 

Textverarbeitung 

2 

6300 Gtcen 



Scheibenkleister 

Utility 

1 




Lavadraw 

Pixelgrafik 

1 


GFA-HELPLINE 

Die HELPLINE ist ein Projekt zum 
aktiven Erfahrungsaustausch und zur 
sinnvollen Hilfestellung für CLUB- 
Mitglieder. Um spezielle Anwendun¬ 
gen und Erfahrungen auszutauschen, 
Tips und Tricks weiterzugeben und 
Hilfestellung zu leisten, halten wir die 
Einrichtung einer HELPLINE mit 
Aufschlüsselung der Daten (siehe 
Coupon) für die zweckmäßigste Lö¬ 
sung. 

Ab November erhalten Sie bei uns 
eine vollständige Liste der Adressen, 
da wir diese aus Platzgründen nicht 
mehr in den CLUB-Nachrichten ver¬ 
öffentlichen können. 


Projekt 

Name: 

"HELPLINE" 

After 

StnAc 

PLZ/Orc 

Telefon: 

Hardware 

1. Rechner: 

2. Rechner. 


Drecken 

Plotter: 


Software 

PrOfTABB 

Anwendungsbereich: 

Praxis* 













• 1: Anfing« 2; Fongeachriucnex 3: Profi 



Bitte füllen Sie diesen Abschnitt volUtlndig aus 

und senden Sie ihn an den G FA-CLUB, Heerdtcx Sandberg 30*32, 

ä000 Düsseldorf 11 
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GFA-BASIC Amiga 3.0 
Tips & Tricks 

Fenster beim Öffnen aktivieren 


Häufig ist es lästig, ein Fenster erst mit der Maus anklickcn 
zu müssen, um z.B. einen Text einzugeben. Das liegt daran, 
daß ein Fenster für Eingaben aktiviert sein muß. 

Es gibt grundsätzlich zwei Arten, ein Fenster beim Öffnen 
zu aktivieren: Zum einen kann man das Fenster mit dem 
OPENW-Befehl und allen Parametern benutzen. Dabei setzt 
man bei "fiags" das Bit für ACT1VATE (&H1000). Die An¬ 
zahl der dazu benötigten Parameter macht die Sache jedoch 
recht umständlich. 


PUT MASK: 


Wollen Sie den PUT-Befehl mit Maske benutzen, so müssen 
Sie das auf dem 3.04-Update mitgelieferte Unterprogramm 
ein wenig umwandeln: (Die Prozedur funktioniert erst ab der 
3.04-Version!) 

PROCEDURE putmask(rp%,x£,y£,g$,minterm|,maskI) 
LOCAL al,b|,p|,gwidth£, gheight£ , bmsizes 


Beispiel: 

OPENW #1,0,0,200,100,OsHlOOO ! öffnet und akti- 

! viert das Fenter 
! Nummer 1,200*100 
! Pixel groß 

Einfacher geht es aber, wenn man das Fenster nachträglich 
mit der Library-Funktion ActivateWindow benutzt Diese 
Funktion benötigt lediglich die Adresse der Window- 
Struktur. Die wird bequemerweise durch die BASIC-Funk- 
tion WINDOW(#Windownummer) bereitgcstellL 

Beispiel: 


OPENW 0 

-ActivateWindow(WINDOW(0)) 
INPUT AS 


! öffnet Standard- 
! Fenster Nr.0 
! aktiviert 
! das Fenster 


IFF TO BOB: 


Leider hat das IFF_TO_BOB-Programm einen kleinen 
Fehler in der Save-Prozedur. Die Breite und Höhe des ab¬ 
gespeicherten Bobs ist stets einen Pixel zu klein. Dadurch 
verschieben sich die gesamten Bitplanes, und das Blitter- 
Objekt sieht nachher recht abenteuerlich aus. Das läßt sich 
jedoch schnell beheben: 

Ändern Sie in der Prozedur "write_bob" die vierte Zeile 

PROCEDURE writejoob 

FILESELECT "GFABASIC 3.03:"OK","TEST.BOB", nS 
IF n$<>"" AND RIGHTS (n$, 1)0":" 

OPEN "o",#2,n$ 

* PRINT #2,MKLS(0);MKLS(0);MKLS(d|) 

;MKL$( SUCC(CARD(V:bob$+2)) ) 
;MKL$( SUCC(CARD(V:bob$+4)) ) 

Nun sollten die Bitplanes genau übereinander liegen. 


IF LEN (gS) >7 
pI=CARD(V:gS) 

gwidth£=SUCC(CARD{ADD(V:gS, 2) )) 
gheight£=SUCC(CARD(ADD(V:g$, 4) )) 
bmsize£=MUL(DIV(ADD(gwidths,£HF),£H10) , 

SHL(gheight£,1)) 

INLINE bmstrct%,40 

-InitBitMap(bmstrct%,pl,gwidth£,gheight£) 

DIM rasad%(p|) 

/ 

FOR a|=1 TO p| 

rasadl(a!)=AllocRaster(gwidth£,gheight £) 

IF rasad%(aI)=0 

FOR bl=1 TO PRED (a|) 

-FreeRaster(rasadl(b|), 
gwidth£,gheight £) 

NEXT b| 

ERROR 8 
ENDIF 

t 

* -BltClear(rasad% (aI), 

RasSize(gwidth,gheith),0) 

* BMOVE ADD(V:gS,ADD(6,MUL(bmsize£, 

PRED(a|)))),rasad%(al), bms i ze£ 
LONG(ADD(bmst rct %,ADD(4,SHL(a1,2))) ) = 

rasad% (a I ) 

NEXT a| 

destbit%=(ADD(rp%,4)} 
layerinfo%=(ADD((rp%),68) ) 

-Forbid() 

-LockLayers(layerinfo%) 

* -BitBitMap(bmstrct%,0,0,(ADD(rp%,4)), 

x£,y£,gwidth£, gheight£, minterm|,maskl,0) 
~UnlockLayers(layerinfo%) 

-Permit() 

t 

FOR a|=1 TO p| 

-FreeRaster(rasad%(a|),gwidth£,gheight£) 
NEXT al 

ERASE rasad%() 

ELSE 

ERROR 54 
ENDIF 
RETURN 


Thomas Ströter 
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Im Test: 

Ein Programmpaket für Lehrer 


Um es ausnahmsweise einmal 
gleich vorweg zu sagen: Ein 
derart umfangreiches, durch¬ 
dachtes und komfortables Pro¬ 
grammpaket für Lehrer suchen 
Berufsgenossen des Autors 
(wahrlich) vergebens. 


TEACHER’s 

HiWi 


sichten verschiedener Art. Au¬ 
ßerdem ist das Programmpaket 
mit ein bißchen Phantasie auch 
so flexibel, daß sich vielleicht 
manche "berufsfremde" Auf¬ 
gabe erledigen läßt. 

• Preis 


• Anwendung 

Die Anwendung ist eigentlich zweige¬ 
teilt. Zum einen beinhaltet sie den 
"Teacher”, zum anderen die Noten¬ 
verwaltung. Beigefügt sind auch ver¬ 
schiedene Beispiele und Muster zu den 
einzelnen Programmpunkten. Bereits 
ohne Handbuch zeigt sich, daß die Pro¬ 
gramme logisch durchdacht und ein¬ 
leuchtend aufgebaut sind. 

Wer jedoch alle Finessen (es sind wirk¬ 
lich eine ganze Menge) nutzen will, 
kommt um ein intensives Studium des 
Beiheftes in Form von ca. 35 Einzel- 
blättem nicht herum. Angenehm sind 
Kürze, Darstellung und Übersichtlich¬ 
keit der Beschreibung, wenn auch 
manchmal der "Teacher etwas durch¬ 
schimmert". 


• Einstellungen für Drucker 

Die Möglichkeiten sind so vielfältig, 
daß bestimmt jeder seinen Drucker op¬ 
timal einstellen kann. Die Parameter 
werden gespeichert und fungieren 
immer als Grundcinstellung. 

Die NOTENVERWALTUNG läßt das 
Herz eines Lehrers höherschlagen. Ob 
schriftliche, mündliche, sonstige No¬ 
ten oder Heftführungsbewertung, alle 
Arten können übersichtlich und mit 
einstellbarer Wertigkeit zueinander (!) 
gehandhabt werden. Dazu lassen sich 
Übersichten und qcd..Resultate dar¬ 
stellen und ausdrucken. Selbstver¬ 
ständlich sind alle Ergebnisse Spei¬ 
cher- bzw. wieder ladbar. 


Jetzt noch etwas Wichtiges! Bei 
einem Telefonat mit dem Autor habe 
ich ihn auch nach Unterstützung und 
Preis des Programmpakets befragt. 
Entrüsteter Ausruf durch die Leitung: 
" Ja nix ... ", womit der Preis gemeint 
war. 

Programm-Name: 

Teachcr.prg (Preis: "Nix") 

N_Verwl0.prg (Preis: "Nix") 

Kopierschutz: nein 

Auflösungen: monochrom 

Handbuch: deutsch, gut verständlich, 
beim Autor erhältlich (Bedingung er¬ 
fragen) 

Copyright: 

Friedrich-Wolfgang Memleb 


Die Programme selbst sind bis auf die 
Eingabe von Daten menugesteuert mit 
einer eigenen (Res), leicht zu überblik- 
kenden, Oberfläche. Also dürften auch 
Anwender mit weniger "Durchblick" 
gut zurechtkommen. 

Mit dem TEACHER selbst werden fol¬ 
gende Arbeiten erledigt: 

• Dateien verwalten 

Hier wird alles erledigt, was mit neuen 
Eingaben, Änderungen, Löschen oder 
Listen zu tun hat, also z.B. Anlegen 
eines Klassen- oder Schülerdatensat¬ 
zes etc. Die Eingabe- und Ändcrungs- 
fclder sind, wie übrigens vieles im Pro¬ 
gramm, sehr sauber und übersichtlich 
programmiert. 

• Klausuren 

Eingabe, Übersicht und Druck von 
Klassenarbeiten (ähnlich einer Art 
Tabellenkalkulation mit zusätzlicher 
Schaubilddarstcllung). 


• Zielgruppe 

Tja, für wen ist dieses Programmpaket 
interessant? Da wären zum einen alle 
Lehrkräfte der Sekundarstufe I und II 
(für die es vor allem vorgesehen ist), 
die gerne mit einem Computer (natür¬ 
lich Atari ST, was sonst) umgehen. 
Außerdem empfehle ich es allen, die in 
irgendeiner Form mit Schülern oder 
Auszubildenden zu tun haben oder 
auch in der Erwachsenenbildung täüg 
sind. 

Im übrigen wäre es bestimmt nicht 
schlecht, wenn so mancher "pro¬ 
fessionelle" Programmierer mal einen 
Blick in die Programme riskieren 
würde, es sei denn, er hätte Angst, 
etwas dazuzulemen ... 

Um ganz ehrlich zu sein, ganz ohne Ar¬ 
beit geht es natürlich nicht. Bis alles 
entsprechend "läuft", hat man schon 
noch etwas zu tun, aber danach dürfte 
alles locker von der Hand gehen, ein¬ 
schließlich der Ausdrucke und Über¬ 


Anschrift: 

Friedrich-Wolfgang Memleb 
Bismarck-Platz 9 
4350 Recklinghausen 

Walter Hermann 


Paten gesucht! 

Helfen Sie 
uns, die Über- 
Lebensräume des 
Teichrohrsängers 3Ü wk 
"Vogel des Jahres ä m 
1989" zu sichern. 
Übernehmen Sie eine 
Patenschaft! 

Informationen erhalten Sie 
beim 

Naturschutzverband DBV 
Am Hofgarten 4, 5300 Bonn 1 
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Patchbereiche für GFA-BASIC Version 3.07 


OPEN "U",#1,"GFABASIC.PRG" ! oder "GFABASRO.PRG" 

SEEK #1,31 

PRINT #1, H E"; ! oder "H"; 

CLOSE II 

' mit E wird der Bildschirm bei Programmstart gelöscht 
' mit H wird der Bildschirm nicht gelöscht 


OPEN "U",#1,"GFABASRO.PRG“ 

SEEK #1,32 

PRINT II,"TESTPROG.GFA";CHR$(0); 
CLOSE #1 


02.08.89 


Patch-Bereiche 


Bei Start des GFABASRO wird, wenn nicht durch Anwendung anmelden ein 
anderes gewählt wird, das Programm TESTPROG.GFA nachgeladen und gestar¬ 
tet. Dieser Programmname darf maximal 63 Zeichen lang sein. Das Null¬ 
byte am Ende ist dabei wichtig, wird nur ein Nullbyte ausgegeben, so 
wird der Originalzustand wieder hergestellt. 


OPEN "U",#1,"GFABASIC.PRG" 

SEEK #1,32 
FOR i%=0 TO 25 
READ a% 

OUT #1,a% 

NEXT i% 

CLOSE #1 

' ABCDEFGHI JKLMNOPQRSTUVWXYZ 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

' Wenn Sie die DATA-Zeile ändern, so wird der Default-Typ für die Vari- 
' ablen, deren Name mit dem darüberstehenden Buchstaben beginnt, geändert. 
' Erlaubt sind dabei NUR: 

' 0-DEFFLT 1-DEFSTR 2-DEFINT 

' 3-DEFBIT 8-DEFWRD 9-DEF8YT 


OPEN "U",#1,"GFABASIC.PRG" 
SEEK #1,58 
FOR i%«0 TO 3 
READ a% 

PRINT #1,MKI$(a%) ; 

NEXT i% 

CLOSE #1 

' Farben fuer Editor normal 
DATA 40777,40700,40070,40000 


' Farben fuer Editor invers 
' DATA 40000,40700,40070,40777 


OPEN "U",#l,"GFABASIC.PRG" 

SEEK •1,4H60 
PRINT #1,MKI$(x); 

CLOSE #1 

' DEFLIST Voreinstellung. Im MKI$(x) kann nun die gewünschte DEFLIST-Nummer 
' eingetragen werden 


OPEN "U",#1,"GFABASIC.PRG" 

SEEK #1,4H62 
PRINT #1,MKI$(pl); 

PRINT #1,MKI$(p1—2); 

PRINT #1,MKI$(11); 

CLOSE #1 

' Voreinstellung der LLIST-Parameter : pl -> Seitenlänge 

' 11 -> Zeilenlänge 
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OPEN "U",# 1,"GFABASIC.PRG" 

SEEK #1,&HE58F 
OUT #1,3 
CLOSE #1 

Der Treiber vom SM194 fängt leider den XBIOS(2)-Befehl nicht richtig ab. 
Durch den Patch wird der XBIOS(2) auf XBIOS(3) geändert. 


Anpassung 

Mit diesem Patch können Sie das GFA¬ 
BASIC an den SM 194 anpassen 

Lars van Straelen 


DIM a 

i (3) 


-GEMDOS(54,L 

Va%(0),1) 

PRINT 

a% (0) 


PRINT 

a% (1) 


PRINT 

a% (2) 


PRINT 

a% (3) 


PRINT 

"Kap:" 

•a% (1) *a% (2) *a% (3) 

PRINT 

"FRE:" 

- a% (0) *a% (2) *a% (3) 


Gesamtkapazität 

Mit diesem Listing kann man die Ge¬ 
samtkapazität eines Laufwerks abfra- 
gen 

iMrs van Straelen 


PRINT 

"TOS Version 

";BYTE(LPEEK(S H4F2)+2};"." 

;BYTEäLPEEK(& H4F2)+3Ü 


PRINT 

"GEMDOS Version 

" ;HEX? (GEMDOS (48) ) 

PRINT 

"GEM says Version 

";HEXS(INTääGB+4üü) 


PROCEDURE dskspeed 

SELECT DPEEK(4H440) ! Systemvariabie 'seekrate'abfragen 
* ! (zuständig für die Steprate des 

' ! Laufwerks) 

CASE 2 ! ...wenn Steprate=2ms 

' ! (max.Geschwindigkeit)ist 

* ! der Diskspeeder schon aktiv. 

ALERT l,“Der Diskspeeder ist aktiv ! 

iWas nun ? i-Abschalten oder 
I-Weiter ",2, M Absch. | Weiter ",a 
IF a|»l ! Wenn abscha1ter w dann zur Proc change 

@change{FALSE) 

ENDIF 

DEFAULT ! ...sonst ist Diskspeeder ausgeschaltet. 


ALERT 1, M Diskspeeder ist nicht aktiv ! 

iWas nun ? i-Einschalten oder 
I-Weiter ",2, M Ein | Weiter ",a| 

IF a|=l ! Wenn anschalten,dann zur Proc change 

@change(TRUE) 

ENDIF 

ENDSELECT 

RETURN 


PROCEDURE change(a!) 


IF a! 

SDPOKE 4H440,2 
Sverlfy(FALSE) 
ELSE 

SDPOKE 4 H 4 4 0,3 

Gverify(TRUE) 
ENDIF 
RETURN 

PROCEDURE verify(b!) 


IF NOT b! 

SDPOKE 4 H4 4 4,0 
ELSE 

SDPOKE 4H4 4 4, 1 
ENDIF 
RETURN 


Umscha1tprozedur,zum ABSCHALTEN wird 
'FALSE' übergeben, 
zum EINSCHALTEN 'TRUE' 

...wenn EINSCHALTEN,... 

...4H440 mit ,2, belegen. 

...und zur Proc verify springen. 

...wenn AUSSCHALTEN,... 

...4H440 mit '3'belegen (das Ist der 
defaut-Wert des Betriebssytems). 

... und zur Proc verify springen. 


Die Prozedur schaltet bei aktivem 
Diskspeeder die Sicherheitsüberprüfung 
(Verify) des Laufwerks aus. 

...wenn Verify ausschalten,... 

...4H444 (Verifyflag) auf ’0' setzen. 
...wenn Verify einschalten,... 

...4H444 auf '1' setzen. 


Versionsnummer 

Mit diesen Zeilen kan man die Ver- 
sionsnummem des aktiven TOS, des 
GEMDOS und des GEMs abfragen 

Lars van Straelen 


Diskspeeder 

Der Diskspeeder beschleunigt die Dis¬ 
kettenzugriffe des Systems dadurch, 
daß er die Steprate der Diskstation auf 
2 Millisekunden heruntersetzt (Sy¬ 
stemeinstellung ist 3 ms) und weiter¬ 
hin das Verify, die Sicherheitsüberprü¬ 
fung bei Diskzugriffen, ausschaltet. 

Die Hauptprozedur ‘dskspeed* fragt 
die derzeitige Steprate ab. Beträgt sie 
‘2’, ist der Speeder aktiv, sonst nicht. 
Soll nun der Zustand verändert wer¬ 
den, wird zur Prozedur ‘change’ ge¬ 
sprungen. Sie erwartet eine Boolvari- 
able als Übergabeparameter. 

Ist diese Var TRUE (-1), wird die Step¬ 
rate heruntergesetzt, wenn die Var 
FALSE (0) beinhaltet, wird die Step¬ 
rate auf den Defaultwert 3 heraufge¬ 
setzt. Um bei eingeschaltetem Disk¬ 
speeder eine größere Laufwerksbe¬ 
schleunigung zu erreichen, wird da¬ 
nach zur Prozedur ‘ verify'gesprungen. 
Auch sie erwartet eine Boolvariable. 

Enthält sie FALSE, wird das Verify ab¬ 
geschaltet. Das geschieht nur bei akti¬ 
vem Diskspeeder. Ist die Var jedoch 
TRUE (Diskspeeder aus), wird das 
Verify wieder angeschalteL 

Daniel Rednaz 













20 


GFA-CLUB-Nachrichten Nr. 5 - 89 


Blitterschalt- 

Prozedur 

Die Routine ‘blitter’ kann aufgerufen 
werden, um den Blitterstatus zu verän¬ 
dern oder ihn zu erfragen. Die Prozedur 
ruft die XBIOS-Funktion ‘blitmodc’ 
auf. Mit dem Übergabeparameter ‘-1’ 
wird deraktuelle Status zurückgelie¬ 
fert. 

Daniel Rednaz 


SCHUTZ.LST 
für GFA-BASIC 
2.0 und 3.0 

Diese Routine ist entstanden, als ich 
nach einer Möglichkeit suchte, meine 
eigenen Programme vor Befall durch 
Linkviren zu schützen oder, um zumin- 
destens eine Vorwarnung zu erhalten. 
Neben gezielter Suche auf bestimmte 
Viren ist ein vorbeugender Test der 
File-Länge möglich. 

Falls eine entsprechende Methode 
existiert, die mit CRC-Prüfsummen ar¬ 
beitet, wäre ich für entsprechende Hin¬ 
weise dankbar. Bisher bin ich immer 
daran gescheitert, daß sich die Prüf¬ 
summe jedesmal ändert, wenn ich die 
Daten in das Programm einsetze. 

Funktionsbeschreibung: 

(Die eingeklammerten Zahlen bezie¬ 
hen sich auf die Zeilen im Listing.) 

Zunächst muß der Startpfad bestimmt 
werden (4), damit sich das Programm 
auf der Diskette findet. In (5,6) werden 
Programmname und Länge eingestellt, 
wobei die richtige File-Länge in einem 
ersten Compiler- und Linker-Lauf er¬ 
mittelt werden muß. 


PROCEDURE blitter 
SELECT XBIOS (64, -1) 
CASE 2 


Blitterschaltprozedur 
XBIOS(64), 'blitter' abfragen... 
...wenn 2, Blitter vorhanden + 
abgeschaltet 


ALERT 2,"Der Blitter ist abgeschaltet ! 

I -An :Blitter aktivieren ",2, 

" An |Abbruch",bl 

IF bI=1 

VOID XBIOS(64,1) ! Blitter einschalten 

ENDIF 

CASE 3 ! ...wenn 3, Blitter vorhanden + 

' ! angeschaltet 

ALERT 2,"Der Blitter ist angeschaltet ! 

I -Aus :Blitter abschalten",2, 

" Aus |Abbruch",b| 

IF bI=1 

VOID XBIOS(64,0) ! Blitter ausschalten 

ENDIF 

DEFAULT ! ...sonst kein Blitter vorhanden oder 

' ! Fehler aufgetreten. 

ALERT 3,"Kein BLITTER vorhanden bzw. Fehler bei 

XBIOS(64), l'blitmode' aufgetreten 
,1,"Abbruch",b| 

ENDSELECT 

RETURN 


startpfad$=CHR$(GEMDOS(25)+65)+":"+DIRS(0) 
programmname$="BEISPIEL.PRG" 
laenge%=1234567 

IF EXIST(startpfad$+"\"+programmname$)<>0 
file_test(startpfad$+"\"+programmname$) 

IF virus!=TRUE 

ALERT 3, "VIREN-AI.ARM! | lUberprüfen Sie Ihre 
I Software!",1," OK ", dummys 
ALERT 3, "Sicherheitshalber wird gleichlein Kaltstart 
ausgelöst! I Legen Sie eine virenfreie 
IDiskette zum Booten ein ! ", 1," OK ",dummys 

kaltstart 

ELSE 

OPEN "i",#1,startpfadS+"\”+programmnameS 
IF LOF(#1)>laenge% 

ALERT 3,"Filelänge von "+programmname$+"|stimmt nicht! 
IDas Programm könnte I verseucht sein!" 

,1," WEITER ",dummys 

ALERT l,"Der Grund für die veränderte|Fi1elänge ist 
unbekannt!|Bitte senden Sie mir eine 
IKopie des Files zur Analyse!",1,"Weiter",dummys 
ALERT 1,"Wichtig: Vermerk 'VIRUS'|Sie erhalten von mir 
eine I angepaßte Version. | (frankierter 
Rückumschlag!)",1, "Weiter", 

dummys 

ALERT 3,"Sicherheitshalber wird gleichlein Kaltstart 
ausgelöst!|Legen Sie eine 
virenfreie|Diskette zum Booten ein!",l," 

OK ",dummys 
kaltstart 
ENDIF 
CLOSE #1 


ELSE 

ALERT l,"Der richtige Programmname ist| "+programm 
name$+" !|Nur mit iesem Namen wirkt der 
d | Linkviren-Selbsttest!", 1, "Mist",dummys 
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(7): Programm sucht sich selbst. 

Fall 1: 

• Der Programmname wurde geän¬ 
dert. Jetzt bricht das Programm 
nach einer Warnung ab. 
Erbarmungslose können hier auch 
einen Kaltstart erzeugen. Sicher ist 
sicher.(25-27) 

• 

Fall 2: 

• Das Programm findet sich. Jetzt 
wird gezielt nach Viren gefahndet. 


• a: Falls ein Virus vorhanden ist, 
wird der Rechner nach einer War¬ 
nung ins Nirwana geschickt.(9-12) 

• b: Kein bekannter^!) Virus gefun¬ 
den. Nun wird die File-Uinge über- 
prüft.(15) 

File-Länge richtig: 

• Programm wird ausgeführt. 

File-Länge falsch: 

• Kaltstart, da Verdacht auf unbe¬ 
kannten Virus.(16-20) In diesem 


Fall sollte man das Programm an 
den jeweiligen Autor senden oder 
selber eine Analyse vornehmen. 
(Bytes 28-40 im Programm merken, 
Verbreitungs-Test durchführen 
(! VORSICHT!) und überprüfen, 
wie sich die zu Testzwecken infi¬ 
zierten Programme verändert 
haben.) 

Unter Umständen kann das CLUB- 
Info hier als Forum dienen, um Virus- 
Daten und Testmethoden allgemein zu¬ 
gänglich zu machen. Auch könnte auf 
dieser Ebene eine zuverlässige und er¬ 
weiterbare Methode entwickelt wer¬ 
den, Viren aller Art zu erkennen und 
unschädlich zu machen. 

Kaltstart: 

Sprung an Rom-Anfang (33) mit 
SUPEREXEC (XBIOS 38) löst Reset 
aus. Werden vorher einige der System¬ 
variablen gelöscht (30-32), die beim 
Reset vom TOS auf ihre Gültigkeit 
überprüft werden, so wird ein Kaltstart 
ausgclösf 

Filetest: 

Die ersten 28 Bytes eines Programms 
stellen den TOS-Programmheader dar. 
Die folgenden 12 Bytes des Pro¬ 
gramms werden überprüft, da hier in 
der Regel der Einstieg der Linkviren 
sitzt. Es können jederzeit neue Daten 
eingetragen werden, wenn man sich an 
folgendes hält: 

Erste Zeile: 

• 1. Zahl: Nummer des Datensatzes 

• 2. Zahl: Länge des Datensatzes 

• Rest: Virus-Daten, die zur Erken¬ 
nung notwendig sind 

Zweite Zeile: 

• Warnmeldung des Datensatzes 

Das Ende der Datensätze ist durch -1 
markiert. 

Die Virus-Daten und der grundsät¬ 
zliche Aufbau der Filetest-Routine sind 
dem Virenkiller von Ulrich Schmitz 
entnommen. Quelle: ATARI-Magazin 
6/88, 7/88, 8/88 

Berthold Cogel 
Sechtemer Weg 13 
5030 Hürth 


23 ALERT l,"Aus Gründen der Sicherheit I wird das Programm 
beendet! I Korrigieren Sie den IProgrammnamen!",1,"ENDE", dummys 

24 END 

25 ENDIF 

26 PROCEDURE kaltstart 

27 SLPOKE S H42 0,0 

28 SLPOKE &H426.0 

29 SLPOKE SH42A,0 

30 -XBIOS(38,L:SHFC0000) 

31 RETURN 

32 PROCEDURE filebtest(fname$) 

33 OPEN "i",#1,fnameS 

34 SEEK #1,28 

35 DIM programmdatenS(12) 

36 FOR iS = l TO 12 

37 programm_datenS(is)=INP(#1) 

38 NEXT iS 

39 CLOSE #1 

40 virus!-TRUE 

41 RESTORE virusdaten 

42 DO 

43 READ virusS 

44 EXIT IF virusS=-l 

45 READ endes 

46 FOR iS = l TO endes 

47 READ virusdatenS 

48 IF virus_datenSOprogrammdaten&(i&) 

49 virus ! =FAI.SE 

50 ENDIF 

51 NEXT iS 

52 READ alarm$ 

53 EXIT IF virus!=TRUE 

5 4 LOOP 

55 IF virus!-TRUE 

56 ALERT 1,alarmS,0,"löschen|weiter",dummys 

57 IF dummyS=l 

58 KILL fname$ 

59 ENDIF 

60 ENDIF 

61 virus daten: 

62 DATA 1,12, 72,122,255,254,32, 122,0,6,78,251,136,0 

63 DATA VCS-Virus gefunden ! | Soll File gelöscht werden 7 

64 DATA 2,6,72,122,255,254,78,249 

65 DATA Milzbrand-Virus gefunden ! 

I (aus c't 04/87) | Soll File gelöscht 

werden ? 

66 DATA -1 

67 alarm: 

68 DATA * 

69 ERASE programm_datenS() 

70 CLR alarmS 

71 RETURN 




GFA-BASIC 
Professional 
Folge 8 


filename.ext Andreas Pirner 

UMRISS .LST Bundesallee 56 

I 21.08.1989 1000 Berlin 31 

U 21.08.1989 030/ 853 43 50 

Lauffähig unter GFA-BASIC 2 und 3 

^ ! Äußere Schleife 

• zum wiederholten Lauf 
C ^S ! Bildschirm löschen. 

REPEAT 

FILESELECT "A:\* f$ 

! "Fileselect" aufrufen, 

UNTIL EXIST(f$) OR f$ = "" 

bis Bild vorhanden oder "Abbruch" 
Programmende bei "Abbruch". 
Bilddatei öffnen und 
Dateilänge ermitteln. 

IF lof%<>32000 AND lof%<>32034 THEN 

! Nur Screen- und Degas-Format 
ALERT 3, "Bildformat falsch ...",1," Huch ! ",d! 

werden akzeptiert ... 

Wenn Format OK, geht die Post ab: 
Bild einiesen und Datei schließen. 


ELSE 

p$=INPUT$ <lof%,#l) 
CLOSE #1 


EXIT IF f$="" 
OPEN "I",#l,f$ 
lof%=LOF(#1) 


Umriß - Kontur - 
Outline - Inline 

In dieser Folge unserer Professional- 
Reihe beschäftigen wir uns wieder mit 
Grafiken. Es geht darum, diese auf ihre 
Umrisse zurückzuführen. Das ist ein 
Vorgang, der bei STAD "Kontur" und 
sonst oft "OUTLINE" (Außenlinie) ge¬ 
nannt wird. Bildlich kann man sich das 
am ehesten so vorstellen, daß sich um 
jede schwarze Fläche der Grafik - vom 
einzelnen Punkt bis zu beliebigen For¬ 
men - eine Linie von einem Punkt 
Dicke schmiegt, und anschließend die 
schwarze Fläche selbst entfernt wird. 
Die Linie stellt dann getreulich den 
Umriß der entfernten Fläche dar. 

Dieses Zurückführen kann Grafiken in 
ihrer Aussage klarer machen oder für 
andere als schwarze Füllungen (Füll¬ 
muster) bereitstellen. Es bildet die Aus¬ 
gangsbasis für viele grafische Manipu¬ 
lationen. Dabei kann ein äußerer Eck- 
punkt der Schmiegelinie wahlweise ge- 
setzt werden oder nicht Das Setzen 
macht aus Rechtecken wieder Recht- 
K:ke, führt aber u.U. bei Kreisteilen und 
Diagonalen zu Linien, die zu dick wir- 
ken. Das Nichtsetzen der Eckpunkte 
(wie es z.B. STAD macht) "rundet" die 
Ecken ab, läßt aber schräg verlaufende 
Linienteile dünn. 

Welcher Effekt der gewünschte ist, läßt 
sich nur am grafischen Einzelfall ent¬ 
scheiden. In unserem Programmbei¬ 
spiel sind beide Konturarten darges- 
tellL Programmtechnisch wird ein 
Umriß durch mehrfaches Übereinan- 


: «us letzten Jz'UUO Bytes 
p$=MKI$(639)+MKIS(399)+MKI$(1)+RIGHTS(p$,32000) 

! PUT-Block hersteilen. 
a$="Was soll geschehen :|Outline wie in STAD, 

(Outline 'voll'(oder Inline ?" 
ALERT 1,a $,w %,"STAD|VOLL|INLINE",w% 

! Konturart bestimmen. 

KONTUR WIE BEI STAD: Bild fünfmal 
IF w%-l THEN ! versetzt übereinander gemalt 

PUT 0,0,p$ t einmal originale Position 

PUT -1,0,p$, 7 ! ein Pixel nach links versetzt 

PUT 1,0,pS,7 ! ein Pixel nach rechts versetzt 

PUT 0,1,p$,7 ! ein Pixel nach unten versetzt 

PUT 0,-1,p$,7 ! ein Pixel nach oben versetzt 

PUT 0,0,p$,6 ! dann Original per 

ENDIF r Exklusiv Oder" ausstanzen. 


IF w%=2 THEN j 

FOR i%=-l TO 1 ! 

FOR j%=-l TO 1 

t 

PUT i%,j%,p$,7 


NEXT j% ; 

I 

NEXT i% 

PUT 0, 0,p$, 6 ! 

ENDIF 

IF w%=3 THEN ! 

PUT 0,0, p$ i 

GRAPHMODE 3 ! 

DEFFILL 1,1 ! 

PBOX 0,0,639,399 

i 

GET 0, 0, 639, 399, b$ 


GRAPHMODE 1 t 

CLS t 

FOR i%=-l TO 1 ! 

FOR j%=-l TO 1 
PUT i%,j%,b$,7 
! 

NEXT j% i 

NEXT i% 


KONTUR 'VOLL': Wie eben, 
zusätzlich nach links UND oben, 

nach rechts UND oben, nach links 

UND unten, nach rechts 
UND unten, 

also neunmal übereinander. 

Und wieder Stanz per "XOR". 

INLINE ist etwas mehr Aufwand: 
Original darstellen, 

Zeichenmodus XOR wählen, 
schwarze Füllung festlegen 

und gefülltes Rechteck in 

Bildschirmgröße zeichnen 
“BILD INVERTIEREN. 

Zurück zum Replace-Zeichenmodus. 
Invert-Bild in BS aufheben, 

Schirm löschen. 


Voll-Kontur, wie eben 
beschrieben, erzeugen und 
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PUT 0,0,p$,l ! mit Original AND-verknüpfen. 

ENDIF 

SGET p$ ! Bildschirm aufheben, auf Taste warten. 

PRINT AT(1,25);"Weiter mit bei. Taste ..."; 

VOID INP(2) 

a$="Ergebnis-Bild speichern ? 

|... als Screen.PIC|... als Degas.PI3" 
ALERT 1,a$,s%,"PICIPI3|Nein !",s% 

IF s%<3 THEN ! Kontur-Bild speichern 

IF s%=l THEN ! im Screenformat (32000 Bytes) 

OPEN "0",#1, "A:\OUTLINE.PIC" 

ELSE ! im Degas-Format (32034 Bytes) 

OPEN ”O n ,#1, "A:\OUTLINE.PI3" 

PRINT #1,MKL$(SH20777)+STRINGS(30,0) ; 

! Degas-Header schreiben. 

ENDIF 

PRINT #l,p$; ! Bild schreiben. 

CLOSE #1 ! Datei schließen. 

ENDIF 

ENDIF 

LOOP ! Auf ein Neues ... 

EDIT 


Ende 


derlegen (vier- bzw. neunfache ODER- 
Verknüpfung) der Originalgrafik mit 
abschließendem "Ausstanzen” des Ori¬ 
ginals aus diesem "Brei" per XOR (Ex- 
klusiv-Oder). In unserem Fall löscht 
XOR immer genau dort einen Bild¬ 
punkt, wo im Original einer gesetzt war. 

Nun ist es nicht immer wünschenswert, 
die Konturen durch äußeres Herumsch¬ 
miegen zu erzeugen, da gerade feine 
Strukturen dadurch "fetter" werden. So 
ist eine einpunktbreite Linie nach 
"Kontur" drei Punkt.e also dreimal so 
breit! 

Deshalb ist INLINE als dritte Möglich¬ 
keit programmiert. Hier läuft unsere 
Schmiegelinie innen in den Rächen 
"immer am Rand" lang und dieser Weg 
wird die Kontur. Programmtechnisch 
läuft das fast wie bei der Vollkontur ab, 
nur das hier ein invertiertes Original be¬ 
handelt wird, und das Endergebnis 
durch UND-Verknüpfung erzielt wird. 

Die Wirkungen zu beschreiben ist 
schwieriger, als sie anzusehen. Also 
’ran ans Abtippen und Probieren oder 
Abbildung unten anschauen! 

Zum Programmende ist eine sehr 
simple Speichermöglichkeit eingebaut, 
die sturerweise immer KONTUR.PIC 
oder ,PI3 erzeugt. Im häufigeren An¬ 
wendungsfall wird man dies durch ein 
besseres System ersetzten. 


DIE DREI 

UMRISSRRTEN IM DERGLEICH 

ORIGINALGRÖSSE: 

JcDlDiü 

UNTER DER LUPE= 


"U0LL"-K0NTUR 


ORIGINAL 


S TRD-KONTUR 


INLINE 
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Funktionen in GFA-BASIC 3.0 


GFA-BASIC 3.0 bietet die Möglichkeit, ein und 
mehrzeilige Funktionen zu definieren. Sicht man sich nun 
veröffentlichte Programmlistings etwas genauer an, so fällt 
auf, daß Funktions-Definitionen, namentlich mehrzeilige, 
eher stiefmütterlich behandelt werden. Man findet sie nicht 
allzu häufig, obwohl sie in vielen Situationen einfacher und 
eleganter zum Ziel führen als Prozeduren. Sie ersparen oft 
die eine oder andere Programmzeile und machen darüber 
hinaus so manche lokale Variable und die "Erfindung" von 
Hilfsvariablen-Namen überflüssig. Wir wollen uns hierzu 
einige praktische Beispiele betrachten. 

In den GFA-CLUB-Nachrichten 7/8-89 findet sich auf Seite 
19 ein kleines, aber nützliches Programm, mit dessen Hilfe 


Disketten mit Namen versehen werden können. Das Pro¬ 
gramm enthält eine Prozedur namens getjabel, die fest¬ 
stellt, ob die fragliche Diskette noch namenlos ist. Aufge¬ 
rufen wird sie von einer zweiten Prozedur set Jabel, die in 
Abhängigkeit von dem Ergebnis, das getjabel liefert, der 
Diskette einen Namen gibt oder den Benutzer darauf hin¬ 
weist, daß sie bereits einen solchen hat. 

Der besseren Übersicht wegen stellen wir diese Version (nur 
die zum Verständnis notwendigen Programm teile) der Lö¬ 
sung unter Verwendung einer mehrzeiligen Funktion direkt 
gegenüber. Die Unterschiede werden dann auf einen Blick 
deutlich. 


Lösung als Prozedur 

Lösung als Funktion 

LST"+CHR$(0)) 

6set_label("TEST.LST"+CHRS( 0 )) 

/ 

PROCEDURE get label(VAR dnameS) 

FUNCTION get labelS 

-FSETDTA (BASEPAGE-. 128) 

-FSETDTA(BASEPAGE+128) 

IF FSFIRST("*.*",8)=-33 

IF FSFIRST("*.*",8)=-33 

dname$="” 

RETURN ,,n 

ELSE 

ELSE 

dname$ =CHAR{BASEPAGE+158) 

RETURN CHAR(BASEPAGE+158 ) 

ENDIF 

ENDIF 

RETURN 

ENDFUNC 

/ 

PROCEDURE set label(label$) 

PROCEDURE set 1 abel( 1 abel $ ) 

LOCAL testS,e% 

LOCAL e% 

get label(testS) 

IF @get label$="" 

IF testS= n " 

.... 


ENDIF 

ENDIF 

RETURN 

RETURN 



Wir erkennen sofort, daß Lösung 2 die Einrichtung der lo¬ 
kalen Variablen testS in der Prozedur setjabel und die De¬ 
finition des Ersatznamens dnameS in get_label überflüssig 
macht. Außerdem spart sie eine Programmzeile in set_labcl, 
weil die Funktion ohne Umwege als Argument für die IF-Ab¬ 
frage verwendet werden kann. 

Wenden wir uns nun einem etwas komplexeren Beispiel zu, 
in dem ein- und mehrzeilige Funktionen und verschachtelte 
Funktionsaufrufe Vorkommen. 

Nehmen wir an, wir hätten ein Programm geschrieben, das an 
irgendeiner Stelle vom Benutzer die Eingabe eines Datums 
verlangt. Natürlich bauen wir eine Plausibilitätsprüfung ein, 
um Eingaben wie ’29.02.1989’ zu verhindern. Die hierzu 
notwendige Eingabeschleife könnte im Prinzip folgender¬ 
maßen aussehen: 


DEFWRD "a-z" ! Wir brauchen nur Wort- 

! parameter 

REPEAT 

CLS 

INPUT"Datum (TT.MM.JJJJ) ";datum$ 
tag=VAL(LEFTS(datum$, 2)) 
monat=VAL(MID$(datumS ,4,2)) 
jahr=VAL(RIGHTS(datumS, 4)) 

UNTIL @datum_ok(tag,monat,jahr) 


Was die Funktion ’datum_ok()’ zu tun hat, ist klar: Sie muß 
prüfen, ob Tag, Monat und Jahr innerhalb zulässiger Grenzen 
liegen und das Ergebnis in Form eines von UNTIL auszuwer¬ 
tenden Flags (TRUE bzw. FALSE) mitteilen. (In unserem 
Beispiel wollen wir Jahreszahlen zwischen 1980 und 1999 
zulassen. Die Werte sind willkürlich gewählt; es können be¬ 
liebige andere Jahreszahlen ab 1582, dem Jahr der Ein- 
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führung des für unsere Zeitrechnung maßgebenden Grego¬ 
rianischen Kalenders, genommen werden.) 

Da 3 Werte zu untersuchen sind, bietet es sich an, hierfür eine 
Funktion zu definieren. Wir nennen sic einfach ’in’: 


DEFFN in(x,ug,og)=x>=ug AND x<=og 


DEFFN datum_ok(tag,monat,jahr) 

=@in (tag, 1,6monatstage(monat,jahr)) 
AND ein (monat,1,12) 

AND @in(jahr, 1980,1999) 

Wem solche Mammutzeilen (im GFA-BASIC-Editor könn¬ 
ten wir diesen Bandwurm nicht so schön aufteilen) ein 
Greuel sind, kann auch zur mehrzeiligen Funktion greifen: 


x ist der zu prüfende Wert, ug die zulässige Untergrenze, og 
die Obergrenze. Liegt x innerhalb des Intervalls ug...og 
(jeweils einschließlich), ergibt die Funktion TRUE, andern¬ 
falls FALSE. 

Die Prüfung, ob Monat und Jahr erlaubte Werte haben, be¬ 
reitet keine Probleme. Schwieriger wird es beim Tag. Bedau¬ 
erlicherweise sind die Kalendermonate unterschiedlich lang, 
wobei der Februar völlig aus der Reihe tanzt. Damit wären 
wir beim Thema 'Schaltjahr*. Wie wir wissen, ist ein Jahr 
dann Schaltjahr, wenn die Jahreszahl ohne Rest durch 4 teil¬ 
bar ist. Ist sie auch durch 100 teilbar, nicht aber zugleich 
durch 400, dann liegt kein Schaltjahr vor (1900 z.B. ist 
wegen dieser Regel kein Schaltjahr). Unsere Funktion lautet: 


DEFFN schaltjahr(jahr)=(jahr MOD 400=0 

OR NOT (jahr MOD 100=0)) 
AND jahr MOD 4=0 


Jetzt ist es nicht mehr schwierig .festzustellen, wieviele Tage 
ein beliebiger Monat hat. 


FUNCTION monatstage(monat,jahr) 
SELECT monat 
CASE 4, 6, 9,11 
RETURN 30 
CASE 2 

IF @schaltjahr(jahr) 

RETURN 29 
ELSE 

RETURN 28 
ENDIF 
DEFAULT 
RETURN 31 
ENDSELECT 
ENDFUNC 


Auf die IF-ELSE-ENDIF-Konstruktion für den Februar 
könnten wir auch verzichten und nach CASE 2 einfach 
schreiben: 


RETURN 28-@schaltjahr (jahr) 


Das würde 4 Programmzeilen einsparen, ginge aber, wie ich 
meine, auf Kosten der Lesbarkeit. Zumindest weniger er¬ 
fahrene Programmierer hätten vermutlich Schwierigkeiten, 
den Sinn dieser Zeile auf Anhieb zu durchschauen. 

Wir haben nun alle Bausteine für unsere Funktion 
datum_ok() beisammen und definieren: 


FUNCTION datum_ok(tag,monat,jahr) 

LOCAL t 

t=@monatstage(monat,jahr) 

RETURN @in (t, 1, tage) AND Sin(monat,1,12) 
AND Sin(jahr,1980,1999) 

ENDFUNC 


Unsere Dalumsprüfung ist damit komplett. Wer will, kann 
versuchen, die Funktionen durch Prozeduren zu ersetzen. Er 
wird feststcllen, daß dies um einiges umständlicher ist. 

Die Beispiele sollen zeigen, daß es sich durchaus lohnt, nicht 
immer gleich gedankenlos zur Prozedur zu greifen, sondern 
je nach Situation auch die Möglichkeiten zu nutzen, die uns 
GFA-BASIC mit ein- und mehrzeiligen Funktionen bietet. 
Dies macht sich in mehrfacher Hinsicht bezahlt. Zum einen 
schafft es Befriedigung, ein Problem mit möglichst gerin¬ 
gem Aufwand gelöst zu haben, und zum zweiten ergeben 
sich rein praktische Vorteile (s. oben). Diese mögen auf den 
ersten B lick mitunter gering erscheinen, können sich aber in 
größeren Programmen ganz schön summieren. 

Zum Zcitverhalten ist anzumerken, daß der Interpreter 
Prozeduraufrufe in der Regel schneller verarbeitet als 
Funktionsaufrufe. In kompilierten Programmen aber verhält 
es sich genau umgekehrt. Und wer kompiliert seine Pro¬ 
gramme nicht, seitdem der Compiler "dazugehört"? 

In diesem Sinne also: Mehr Mut zur Funktion! 

Günter Schmitz 




AmaA dßdU drur /CUa. 

(3 t-y^rCUU^r K<XC&jri CxJrG *.'. 


• leofor /^UoJ&dX /VriiM ^rd. /vu> Ww 
GüfidluixM. *2oo- jCk (5FÄ* ProduÜc 
ptciuuxe<P'. 

Wenn Sie eine gute Idee zu Diskette gebracht haben (ASCU-File), 
senden Sie sic bitte an den 

GFA-CLUB, Heerdtcr Sandberg 30-32, 4000 Düsseldorf 11 
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GFA- 

CLUB-Händler 


Schl ich ting 
Computervertrieb 
Katzbachstr. 6+8 
1000 Berlin 61 
0 30 / 7 86 43 40 

HABA 

COMPUTER AG 
Münsterstr. 9 
2000 Hamburg 5 
4 0 40/5 66 01-1 

Sienknecht 
Bürokommunikation 
Heiligengeiststr. 20 
2120 Lüneburg 
0 41 31 / 4 61 22 

EDV- 

Beratungscenter 
Cuxhavener Str. 1 
2170 Hemmoor 
0 47 71 / 74 04 

Der Computerladen 
Coriansberg 2 
2210 Itzehoe 

Layout Service 
Eckernförder Str. 83 
2300 Kiel 1 
04 31 /18 09 75 

Computer-Studio 

oHG 

Am Lornsenpark31 
2380 Schleswig 
0 46 21/29851 

Computersysteme 
Am Pferdemarkt 5 
2720 Rotenburg / W. 
0 42 61 / 21 29 

PZ-Seguenzdesign 

GBR 

Bahnhofstr. 24 
2842 Lohne (Oldb.) 

0 44 42 / 58 64 

IVEMATELEPOINT 
Posthaltenweg 4a 
29000 Oldenburg 

Carl Wöltje GmbH 
Heiligengeiststr. 6 
2900 Oldenburg 
0441/40 45 93 

Friesland Data 
Berliner Str. 17 
2948 Schortens 

Com Data 

Am Schiffergraben 19 
3000 Hannover 1 
05 11 / 32 67 36 


SMC GmbH 
Schulstr. 7 
3007 Gehrden 1 
0 51 08 / 51 67 

F&T 

Computervertrieb 
Am Homberg 1 
3040 Soltau 
0 51 91 /1 65 22 

Witte Bürotechnik 
Koopmannshof 69 
3250 Hameln 1 
0 51 51 / 75 95-96 

Dr. Hildebrandt 
& Buchholz 
Magdeburger Kamp 
10 

3380 Goslar 
0 53 21 / 8 0 7 31-32 

TRIFOLIUM 
Grassweg 14 
3500 Kassel 
05 61 / 77 71 09 

OFFICE 
AUTOMATION 
Van-der-Werff-Str. 6 
4000 Düsseldorf 1 
02 11 / 77 20 31 

Computer 
Hard- & Software 
Irenenstr. 76 c 
4000 Düsseldorf-Un¬ 
terrath 

HOCO 

EDV-Anlagen GmbH 
Ellerstr. 155 
4000 Düsseldorf 1 
02 11 /78 5213-14 

pro-data Service 
Rheydter Str. 101 
4048 Grevenbroich 
0 21 81 /49 05 51 

W. Esser 
Einzelhandel 
Mittel str. 15 
4048 Grevenbroich 4 
0 21 81 / 38 77 

COMPUTER 
COMMERCE 
Hindenburgstr. 359 
4050 Mönchenglad¬ 
bach 

0 21 61 /1 87 64 

Rota Daten¬ 
verarbeitung GmbH 
Süchtelner Str. 7 
4060 Viersen 1 
021 62/3 10 11 


ssb software-studio 
brakmann 
Württembergstr. 34 
4200 Oberhausen 11 
02 08 / 66 12 95 

Bottroper 

Computer Team GbR 
Pestalozzistr. 35 
4250 Bottrop 
0 20 41 / 6 21 20 

R. Wischolek 
Computertechnik 
Mesteroth 9 
4250 Bottrop-Feld- 
hausen 

0 20 45 / 81638 

EDV-Thiel 
Lörhof 8 

4350 Recklinghausen 
0 2361 /280 29 

Basis Computer 
Systeme GmbH 
Daimlerweg 39 
4400 Münster 
02 51 / 71 99 75-9 

OCBmbH 
Wallstr. 3 
4422 Ahaus 
0 25 61 /50 21 

DELO-COMPUTER- 
TECHNIK 
Kranenbusch 28 
4600 Dortmund 15 

Mentis GmbH 
Poststr. 15 
4650 Gelsenkirchen 
02 09 / 5 25 72 

CSF Computer & 
Software GmbH 
Heeperstr. 106-108 
4800 Bielefeld 1 
05 21 / 6 16 63 

Knoll Computer 
Wilhelmstr. 5 
4904 Enger 
0 52 24/44 19 

ProElektronic 
Königstr. 17-19 
4972 Löhne 1 
0 57 32/10 19-0 

Rothkegel & Rolf 
Vogelsanger Str. 278 
5000 Köln 30 
02 21 / 54 10 36 

MP Software Service 
Reuterstr. 49 
5060 Bergisch Glad¬ 
bach 2 

022 02/2 1784 


RODA-SOFT 
Bahnhofstr. 6 
5120 Herzogenrath 
0 2406 / 791 00 

EDV-Vertrieb 
Gerhard- Hauptmann- 
Str.33 

5270 G ummers bach- 
Dieringhausen 
0 2261 /746 60 

Bürocenter Lehr 
GmbH 
Güterstr. 82 
5500 Tner 
06 51 / 20 97 10 

Computer Finke 
Kipdorf 22 
5600 Wuppertal 1 
0202/45 32 33 

Wrede 
Ruhrplatz 7 
5778 Meschede 
02 91 / 60 94 

W. Kräling KG 
Pf 2240 

5788 Winterberg 
0283/504 8 

UTS - COMPUTER¬ 
DIENST 
Langgasse 40 
6082 Moerfelden- 
Waldorf 

0 61 05 / 2 37 65 

Georg Heim oHG 

Heidelberger 

Landstr, 194 

6100Darmstadt- 

Eberstadt 

0 61 51 / 5 60 57 

Digitron GbR 
Rodheimer Str. 34 
6300 Gieen 
06 41 /8 55 66 

Orion Computer 
Systeme GmbH 
Friedrichstr. 22 
6520 Worms 
0 62 41 / 67 57-6758 

MCA 

Computer Center 
Sindelfinger Allee 1 
7030 Böblingen 
0 70 31 / 22 60 15 

Böhmer 

Electronic GmbH 
Wilheim-Zapl-Str. 9 
7080 Aalen 
0 73 61 / 6 26 86 


Matthias Hohner AG 
Hohnerstr. 8 
7218 Trossingen 
0 74 25 / 2 00 

Computerstudio 
W. Brock GmbH 
Federnseestr. 17 
7410 Reutlingen 
0 71 21 / 3 42 87 

Dorfschmid 
Bürotechnik 
Schulweg 18 
7442 Neuffen /N. 

0 70 25 / 64 42 

R. Gärtig 

Software-Entwicklung 
Ringstr. 4 
7450 Hechingen- 
Beuren 

0 74 77/81 58 

SRE computercenter 
Schloßplatz 3 
7450 Hechingen 
0 74 71 / 1 45 07 

Kaltenbach EDV 
Bachstr. 73 
7465 Geislingen 
0 74 33 / 52 44 

U. Meier 

Computersysteme 
Ringstr 4 
7700 Singen /Htwl. 

0 7731 /6 82 22 

Computer Fachge¬ 
schäft Rösler 
Rheingutstr. 1 
7750 Konstanz 
0 7531 /2 1832 

Computer und 
Zubehör 
Pochgasse 31 

7800 Freiburg 
07 61 / 55 42 80 

Metzner Electronic 
Postfach 1114 

7801 Umkirch 
0 76 65/5817 

Software-Service 
Ritterstr 6 
7833 Endingen 
0 76 42 / 38 75 

Bürobedarf 
Friedrich Resin 
Am Dreispitz 
7852 Binzen 
0 76 21 / 66 01-0 

Hettler GmbH 
Lenzburger Str. 4 
7890 Waldshut 
Tiengen 
0 77 51 /30 94 

EDV + BÜRO 
SERVICE HESS 
Ulrichstr, 24 B 
7918 lllertissen 
0 73 03 / 4 11 89 

ESCON GmbH 
Rindermarkt 8 
8050 Frei sing 
0 81 61 / 1 30 89 


Elektronik Center 
Hindenburgstr. 45 
8100 Garmisch Par¬ 
tenkirchen 
0 88 21 / 7 15 55 

Elektronik Center 
Wachterstr. 13 
8170 Bad Tölz 
0 8041 /4 1565 

FS Computer 
Hechtseestr. 1 
8208 Kolbermoor 
0 80 31 / 9 46 14 

Computerzubehör/ 
PD-Service 
Robert Rehrl 
Stettener Weg 8 
8221 Teisendorf 
0 86 66 / 62 49 

Dutge Computer 
Kantstr 15 
8225 Traunreut 
0 86 69 / 3 67 53 

A.SPITZER 
EDV Beratung 
Sunklergäßchen 6 
8240 Berchtesgaden 
0 86 52 / 6 31 02 

Andreas Meyer 
Hard- und Software 
Frauenhofer Str.29 
8255 Schwindegg 

Karstein Datentechnik 
Aicha 10a 
8451 Birgland 
09 86/10 28 

AGP Shop oHG 
Auf der Schanze 4 
8490 Cham 
0 99 71 / 97 23 

Elektroland 
Zimmermann 
Hauptmarkt 17 
8500 Nürnberg 
09 11 / 2 07 98 

hib Computer GmbH 
Äußere Bayreuther 
Str, 57a-59 
8500 Nürnberg 21 
09 11 /56 29 26 

Graf & Schick 
EDV-Lösungen 
Hauptstr. 32 a 
8542 Roth 
0 91 71 / 50 58 59 

Schöll 

Computercenter 
Dominikanerplatz 5 
8700 Würzburg 
09 31 / 41 90 60 

VC GmbH 
Schwalbenstr. 7 
8901 Stadtbergen 
08 21 / 43 50 26 
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GFA-BASIC 2.0 EWS ST 


Das GFA-BASIC 2 0 Entwicklungssystem ST - Inter- |>M /IQ AA 
preter + Compiler - für Einsteiger. 

(Upgrade-Möglichkeit zum GFA-BASIC 3.0 Entwicklungssystem ST DM 160,-) 


Hochgeschwindigkeitsinterpreter und integrativer 
Compiler als komplettes Entwicklungssystem. 
Einbindung von Assembler und C-Source-Codes in 
GFA-BASIC-Programme. DIVI 198 —■ 



14 Themenschwerpunkte aus allen wichtigen Bereichen. 
272 Seiten, Hardcover, ISBN 3-89317-005-7 



Wann GFA-BASIC? Wann GFA-ASSEMBLER? - Die 
Antwort finden Sie in dem neuen GFA-Anwenderbuch 
(inkl. Programmiertricks und Anwendungsbeispielen 
zum neuen GFA-BASIC 3.0 Compiler). 

Ca 450 Seiten, Hardcover, inkl Diskette, ISBN 3-89317-011-1 


59,- 


GFA-DRAFT-plus ST 


Leistungsfähiges, zweidimensionales CAD-Programm, 
seit Jahren bewährt, tausendfach im Einsatz. 
(Symbolbibliotheken zu GFA-DRAFT-plus auf Anfrage) 

DM 349,- 


GFA-CASTEil — Architektensystem 


Das Architektensystem für den ATARI-Mega ST4. 

Mächtige Funktionen mit anwendergerechter Benutzerführung. 

Fordern Sie unseren Sonderprospekt „GFA-CASTELL“ an. Preis auf Anfrage 


GFA-STATISTIK 


Das professionelle Statistikpaket. 

Über 70 Verfahren der beschreibenden und schließenden Statistik. 

Umfangreiches Handbuch, Beschreibung jedes Verfahrens ÄÄO 

sowohl von der rein formalen als auch der Anwendungsseite. DIVI 998,— 
Sonderprospekt GFA-STATISTIK anfordern. 

Campus- und Studentenversion: Preis auf Anfrage 
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GFA Systemtechnik GmbH 
Heerdter Sandberg 30-32 
D-4000 Düsseldorf 11 
Tel. 0211/5504-0 • Fax 0211/550444 









Dorfch/Pahi 



100% 

Sicherheit in 4 Farben 
Fuji Film Disketten 
i 3,5 Zoll. , 

m. Einfach toll. j 


Mit Pink, Blau, Grün und Grau 
bringt Fuji jetzt ganz schön Farbe 
ins Diskettenleben. Und Ordnung 
ins Archiv. 

Die 3,5' Färb-Disketten von Fuji Film 
haben die Sicherheit ganz auf ihrer 
Seite: hochstabile Kunststoff-Jackets 
schützen das wertvolle Innenleben. 
Auch vor Wärme bis 60°C. 

Und die 100°/oige Endkontrolle, bei 
der jede Diskette Spur für Spur 
geprüft wird, garantiert Ihnen 100% 
Sicherheit. 

Zu kaufen gibt's die vier farbigen 
3,5-Zoll-Disketten überall da, wo 
hohe Qualität einen entsprechenden 
Stellenwert genießt: im Computer- 
und Bürofachhandel. Und natüriich in 
allen gut sortierten Warenhäusern. 


FUJI MAGNETICS GMBH ■ KLEVE 

D-4190 Kleve, Fujistraße 1, Telefon 0 2821/5 09-0 


FUJI FILM 

Disketten 





